my $filename = "test.wma";
open FILE, ">", $filename
  or die "Couldn't create '$filename' : $!";
binmode FILE;
print FILE $response->content;
close FILE;

##</code><code>##

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