Select Code to Download

#!/usr/bin/perl -w
use strict;
...
       my $line = <$_[0]> ;
       return $line;
}

sub GetLine {
        my $FH = shift;
        my $line = <$FH> ;
        return $line;
}