gettorrent.pl

#!/usr/bin/env perl
use strict;
use warnings;

use URI;
use WWW::Mechanize;

my $url   = URI->new(shift) or die;
my %query = $url->query_form;
my $code  = $query{ref};

my $mech = WWW::Mechanize->new;
$mech->agent_alias( 'Windows IE 6' );
$mech->get($url);
$mech->submit_form( form_number => 1 );

open my $fh, '>', "$code.torrent";
print $fh $mech->res->content;

__END__