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