use strict;
use LWP::Simple;
my ($url,$filename) = ('http://www.aoov08.dsl.pipex.com/test.wma', 'test.wma');
my $result = getstore($url,$filename);