#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $filename = "fileblahblahblah.mp4";
my $url = "url";
$mech->get($url, ':content_file' => $filename );