Help for this page

Select Code to Download

Select or download this

print "first\n";
while (<STDIN>)
...
{print $tst ;
print "***\n";
}