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