Select Code to Download

while(<$fileText>){
    chomp;
...
        last;
    }
}

chomp($_ = <$file_handle>);  # read, chomp one line
my @split_fields = split /\t/;