use LWP::UserAgent;
my $agent = LWP::UserAgent->new();
my $response = $agent->get('mms://wms01.aii.co.jp/hotshot/yoshioka.wmv');
open(OUT, '>test1.wmv');
binmode OUT;
print OUT $$response{content};