use WWW::Mechanize;
$m = WWW::Mechanize->new();

$example_url = 'http://china35.newhua.com/down/VideoCutter_Demo.rar';

$m->get($example_url,':content_file' => 'demo.rar');