main::(alienhuman.pl:3):        if (!$ARGV[0]) {
  DB<1> n
main::(alienhuman.pl:6):        } elsif ( ($ARGV[0] eq "help") or ($ARGV[0] eq "-h") or ($ARGV[0] eq "--help") )
main::(alienhuman.pl:7):         {
  DB<1> 
main::(alienhuman.pl:12):               $FILE = $ARGV[0];
  DB<1> 
main::(alienhuman.pl:14):               open FILE or die "Couldn't open file $FILE: $!\n";
  DB<1> 
main::(alienhuman.pl:21):               close FILE;
  DB<1> 
main::(alienhuman.pl:18):               $file_data=<FILE>;
  DB<1> 
main::(alienhuman.pl:17):               while (<FILE>) {