Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse
while (<STDIN>)
{
    print;
}

Select or download this

while (defined($_ = <STDIN>)) {
    print $_;
}
- syntax OK