Select Code to Download

$filename = $ARGV[0]; #corrected from @ARGV[0] as suggested by  eyepop
+slikeamosquito
open (FILE,"$filename") || die "Can't Open $filename: $!\n";
...
foreach my $line(@LINES){ 
    #process something here
 }

$filename = $ARGV[0];
open (FILE,"$filename") || die "Can't Open $filename: $!\n";
...
while<FILE>{ #dealing with it per-lines
  #process something here
}