print
$PPERL
::error
(
"about to process STDIO
\n
"
)
;
while
(
<STDIN>
)
{
print
"read:
$_
"
;
}
syntax highlighted by
Code2HTML
, v. 0.9.1