#!perl

use strict;
use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
 
my $server_endpoint = "http://upload.wikimedia.org/wikipedia/en/7/70/Blogscope-logo-simple.jpg";

my $req = HTTP::Request->new(GET => $server_endpoint);
$req->header('content-type' => 'image/jpeg');


my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->content;
    print $message;
}