$line = <FILENAME>;
    while ($line ne "")
        {
        print "$line";
        $line = <FILENAME>;
        }