$num = @ARGV[0];
while (<>)
{
   (parser algorithm)
}
print ("$result");

##</code><code>##

$num = @ARGV[0];
printf (<>);
while (<>)
{
   (parser algorithm)
}
print( "$result" )