$request = HTTP::Request->new('GET', $reallylongurl);
$request->content_type('image/gif');
$response = $ua->request($request, '/tmp/blah.gif');