Select Code to Download

print "Enter a file to look up for: ";
my $file = <STDIN>;
...

    #.....$numlines[$i++] . each line etc. etc.
}