Select Code to Download

#!usr/bin/perl
#simpleparse.pl
...

my $p=HTML::SimpleParse->new($html);
print Dumper($p);

#!usr/bin/perl
#simpleparse.pl
...
}

#print Dumper($p);