my $url = URI->new("http://rna.tbi.univie.ac.at/cgi-bin/RNAfold.cgi");
$mech->get($url);
if($mech->success())
			{
				$mech->form_number(1);
				$mech->set_fields(
							name		=> "$names[$num]",
							Sequence	=> "$lines[$num]",
							pffold		=> "pf",
							Params		=> "RNA",
							Temp		=> "37",
							email		=> 'KaiAllard@web.de'
						 );
				$mech->untick(toggles => "-4");
                  		$mech->untick(toggles => "-d");
                   	     	$mech->tick(toggles => "-noCloseGU");
				$mech->tick(toggles => "-noLP");
				$mech->untick(plot => "on");
				$mech->untick(SVG => "on");
				$mech->untick(SSview => "on");
				$mech->click_button(value => "Fold it");
				if($mech->success())
				{ ... do something