Perl crawler using mech