use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get("https://www.700credit.com/zeus/");
$mech->dump_forms();
$mech->find_all_inputs();