Select Code to Download

sub searchFileForString {
   my $fileName = $_[0];
...
 
   return $found;   
}

sub does_action_exist()
 {
...
if $programname == 'generic' then /var/log/messages
if $programname == 'other' then ~

use warnings;

...
      $count++;
   }
}