Select Code to Download

my $filename = "test.wma";
open FILE, ">", $filename
...
binmode FILE;
print FILE $response->content;
close FILE;

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