use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get($url);
if ($mech->success()) {
	$mech->form_number(1);
	my $response = $mech->click_button(name => 'begin');
	open(OUT,">save.zip") or die "Can't open outfile: $!\n";
        binmode OUT;
        print OUT $response->content();
        close OUT;
}

##</code><code>##

$mech->get($url, ":content_file" => "filename.here");