$browser = LWP::UserAgent->new();
my $resp = $browser->get($url,':content_cb' => sub {
    my($data, $resp) = @_;
    open FILE, ">>1.wav" or die $!; 
    print FILE $data;
    close FILE;
    return;
  },':read_size_hint' => 1024);