sub rload
  {
	my ($url, $post_data, $ref) = @_;
	my $request = HTTP::Request->new(POST  => $url);

	$request->header(

	'User-Agent' => "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.4) Gecko/20091016 Firefox/3.5.4",
	'Content-Length' => length($post_data),
	'Referer' => $ref

	);


	$request->content_type('multipart/form-data; boundary=---------------------------1234567890');
	$request->content($post_data);


	my $result = $robot->request($request);
	$cookie_jar->extract_cookies($result);
	return $result->headers_as_string()."\n\n".$result->content();
}


$url = 'http://урл';
$ref = 'http://урл';


open(F, 'foto.jpg'); 
$file = join("", <F>);
close(F);


$post_data =
"---------------------------1234567890\n".
"Content-Disposition: form-data; name=\"a\"\n\n".
"addfoto\n".
"---------------------------1234567890\n".
"Content-Disposition: form-data; name=\"s\"\n\n".
"---------------------------1234567890\n".
"Content-Disposition: form-data; name=\"d\"\n\n".
"1\n".
"---------------------------1234567890\n".
"Content-Disposition: form-data; name=\"to\"\n\n".
"---------------------------1234567890\n".
"Content-Disposition: form-data; name=\"addfile\"; filename=\"foto.jpg\"\n".
"Content-Type: image/jpeg\n\n".
$file."\n";


$ex = rload($url, $post_data, $ref);