Write a Perl script that counts the number of times a particular word appears in a text file.

\n#!/usr/bin/perl\n\nuse strict;\nuse warnings;\n\n# Define the word to search\nmy $search_word = "example";\n\n# Open the file for reading\nopen(my $fh, "<", "input.txt") or die "Could not open file: $!";\n\n# Initialize the counter\nmy $count = 0;\n\n# Read the file line by line\nwhile (my $line = <$fh>) {\n # Split the line into words\n my @words = split(/\\s+/, $line);\n\n # Loop through the words and count the occurrences of the search word\n foreach my $word (@words) {\n if ($word eq $search_word) {\n $count++;\n }\n }\n}\n\n# Close the file handle\nclose($fh);\n\n# Print the result\nprint "The word '$search_word' appears $count times in the file.\\n";\n\n\nNote: Replace "example" with the word you want to search for and "input.txt" with the name of your text file