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

##</code><code>##

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