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