Select Code to Download

#! perl -slw
use strict;
...

print "<<<$_>>>" while <PIPE>;

C:\test>\perl32\bin\perl junk99.pl
<<<
...
>>>
<<<
>>>