Help for this page

Select Code to Download

Select or download this

use WWW::Mechanize;
use HTML::TokeParser;
...
    );

print $mech->content();