# the getlines program

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