my $ua = LWP::UserAgent->new( agent => $useragent );
open my $fh, '>:raw', $file or die $!;
my $res = $ua->get( 
    $url, 
    ':content_cb' => _return_callback( $fh ),
);
my $str = $res->request->as_string;
say $str;

# GET http://hostname.com/videoplayback?...
# User-Agent: Mozilla/5.0

my $ua = Mojo::UserAgent->new();
$ua->transactor->name( $useragent );
my $tx = $ua->build_tx( GET => $url );
my $str = $tx->req->to_string;
say $str;

#GET /videoplayback?... HTTP/1.1
#Content-Length: 0
#User-Agent: Mozilla/5.0
#Accept-Encoding: gzip
#Host: hostname.com