#! perl -slw
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $resp = $ua->get(
    "http://www.somesite.com/product_images/theImage.jpg",
    Range => 'bytes=0-999'
) or die;

print unpack 'H*', $resp->content;