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