Select Code to Download

print "Enter a word to search for:";
chomp (my $word = <STDIN> );
...
        print "No such word found.\n";
        exit;
}

#!/usr/bin/perl -w

...


exit;