Select Code to Download

open(FILE1, $ARGV[0]);
while($line = <FILE1>) {
        chomp($line);
...
}

print "\n";

__DATA1__
trip    value1    value2
...
trip    value1    value2   value3
ATG    adsad    dsf    asdas
TTA    24312    144    24