Help for this page

Select Code to Download

Select or download this

$num = shift @ARGV;
while (<>)
{
    ... process data ...
}