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