Help for this page

Select Code to Download

Select or download this

    for (<>)

...
                    print "Current token is $_\n";
                }
        }