use LWP;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( POST => $url);

$req->content_type('image/jpeg');
open(FILE,$filename);
$req->content(join('',<FILE>));
close(FILE);

my $res = $ua->request($req);

die("Bzzzzzzz, error!") unless $res->is_success;