Export site

exportsite.pl

#!/usr/bin/perl -w

use WWW::Mechanize;

$site = 'http://site.com/';
$username = 'username'; 
$password =  'password';

my $m = WWW::Mechanize->new();

$loginurl = $site;

$m->get($loginurl);

my $fields = {
	'username' => $username,
	'password' => $password,
};

my $r = $m->submit_form(form_number => 1, fields=>$fields);

die "Couldn't submit form" unless $r->is_success;

$exporturl = $site.'index.php?a=83';

$m->get($exporturl);

my $export = $m->submit_form(form_number => 1);

die "Couldn't submit form" unless $export->is_success;