Perl: Gerer le web

#!/usr/bin/perl

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$ua→proxy(['http','ftp'],'http://wtd.ime.sancompany.com/');
my $response= $ua→post('http://www.sanothercompany.com/getDayMatchLog.php', { year⇒ '2008', match⇒'12'});

print $response;

my $content = $response→content; 
print $content;