#!/usr/bin/perl -w
use HTML::TokeParser::Simple;

my $p = HTML::TokeParser::Simple->new("clean.htm");

my $token = $p->get_token;
#$token = $p->get_token;
#$token = $p->get_token;

print "1 " . $token->as_is . "\n";

my $p_blah = $p;
print "2 " . getNextToken($p_blah) . "\n";

$token = $p->get_token;

print "3 " . $token->as_is . "\n";


sub getNextToken {	
	if(my $token_blah = $_[0]->get_token){
		return $token_blah->as_is;
	} else {
		return "end";
	}
}