Select Code to Download

open my $fh, ">", "downloaded.pdf" or die $!;
binmode $fh;  # for when you're on a system (like Windows) where line 
+feeds are translated

sub callback {
   my ($data, $response, $protocol) = @_;
   print $fh $data;
   ...
}