[Perl] GetTinyURL

Descrizione
Ottiene il TinyURL di un dato indirizzo web.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( 'http://tinyurl.com/');
$var=$mech->content;
$mech->submit_form(
form_number => 2,
fields => {
url => 'http://tuosito.com',
}
);
$var=$mech->content;
if ($var=~m/<blockquote><b>.*?<\/b><br><small>\[<a href=\"(.*?)\" target=.*?>Open in new window<\/a>\]<\/small>/g){
print "\n Il TinyURL generato e': $1";
}
print "\n\n\n";
system("PAUSE");