http://host.com/upload/profilepic/?qqfile=fun.jpg
Accept-Language: en-US,en;q=0.5
Accept-Encoding:  gzip,deflate
Connection: keep-alive
X-Requested-With: XMLHttpRequest
X-File-Name: fun.jpg
Content-Type: application/octet-stream
Content-Length: 63970
Pragma: no-cache
Cache-Control: no-cache

############ raw image ###########

##</code><code>##

my $browser = LWP::UserAgent->new;
$picture = 'fun.jpg';
$browser->default_header('X-Requested-With' => "XMLHttpRequest");
$browser->default_header('X-File-Name' => $picture);

my %args;
my $field_name = "";
my $buf ;
my $buf_ref = $args{'buf'} || \$buf ;    
my $value = read_file( $picture , binmode => ':raw' , scalar_ref => 1 );


my $response = $self->browser->post( "http://host.com/upload/profilepic/?qqfile=".$picture,
			Content_Type => 'application/octet-stream',
			Content => $value
			);
print $response->content;