Yep, sure can. It does work, consider it tested.
Thanks,
> Note that you can already get this effect with code like this (untested):
>
> open(my $fh, "<", $myfile);
> binmode($fh);
> my $resp = HTTP::Request->new(PUT => $remote, $headers,
> sub { my $buf; read($fh, $buf, 1024); $buf });
>
> Regards,
> Gisle
>
