Select Code to Download

#!/usr/bin/perl

use strict;

use warnings;

my $input = $ARGV[0];

open(INPUT, "$input") || die "Oops!: Can't open file: $!\n";
...
my @inputfile = <INPUT>;

for(my $j = 0; $j < @inputfile; $j++)

while (<>) {
# ...    
}

#!/usr/bin/perl -ln

...
print if -130 < $_ and $_ < -125;

__END__