谁知道WWW::Mechanize 模块的用法

谁知道WWW::Mechanize 模块的用法
#!/usr/bin/perl
use encoding "utf8";
use WWW::Mechanize;
use File::Basename;

#-- User Config --#
my $Account = 'YOUR_ACCOUNT';
my $Password = 'YOUR_PASSWORD';
my $FilePath = 'BACKUP_FILE_PATH';

#-- Start to backup --#
my $agent = new WWW::Mechanize;
#Usage: &GetFurl('Account', 'Password', 'FilePath');
&GetFurl($Account, $Password, $FilePath);

#-- Sub Function Area --#
sub GetFurl {
if(-d dirname $FilePath and -w dirname $FilePath){
$agent->get('http://www.furl.net/');
my $result = $agent->submit_form(
'form_number' => 1,
'fields' => {
'username' => $_[0],
'password' => $_[1]
}
);
$agent->get('http://www.furl.net/exportXML.jsp', ':content_file' => $_[2]);
if($agent->success()){
print "Backup complete.\n";
}else{
print "Backup failed.\n";
}
}else{
print dirname($FilePath)." is not exist or has no write permission.\n";
}
}


有谁可以解释一下这代码是在干嘛??

谢谢