post a binary file to a web server, also add headers

use strict;
use Cwd;
use LWP;

my $filename=shift @ARGV;


unless ($filename) {
 print "Usage: postid filename\n";
 exit;
}

my $content=getContent($filename);

my $url="http://www.egtry.com/upload?path=/java/string/substring.png";

my $browser=new LWP::UserAgent();
my $resp=$browser->post($url, Content_Type=>"image/png", Content=>$content, TITLE=>"some image");

my $status_code=$resp->code();
my $status_msg=$resp->status_line(); 
my $content=$resp->content();
print "status code: $status_code\n";
print "status message: $status_msg\n";
print $content;

sub getContent
{
  my $filename=shift;
  local $/=undef;
  my $buff;
  open(IN, $filename) || die "can not open $filename";
  binmode(IN);
  $buff=<IN>;
  close(IN);
  return $buff;
}