#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
#$mech->agent_alias("Windows IE 6");

$mech->get("http://dl.opensubtitles.org/en/download/file/1953419460");
$mech->save_content("result.srt");