use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response =  $ua->get('http://www.perl.org/simages/lcamel.gif');
die "Unable to retrieve image." unless ($response->is_success);
print "Content-type: image/jpeg\n\n";
print $response->content;