Select Code to Download

#!/usr/bin/perl

...

$parser->parse( $mech->content());

$self->handler( end => sub { if(shift eq 'center'){shift->eof} }, "tag
+name,self" );