#!/usr/lib/perl

use strict;
use warnings;
use Crypt::SSLeay;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Q312461)");

$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));

push @{ $ua->requests_redirectable }, 'POST';

$ua->request(POST "http://www.somejspsite.com/user_login.jsp",
  {
    username               => 'test123',
    password               => 'test',
    go                     => 'Log In',
  });
						                                             
my $request = $ua->request(POST "https://www.somejspsite.com/servlet/com.hhc.fileinfo",
  Content_Type  => 'multipart/form-data',
  Content       => [
  productId	    =>"34234",
  home		      =>"BLAH",
  file			    =>["@env{DOCUMENT_ROOT}/files/image.gif"],
  go		        =>"Upload"
  ]);
						
$b = $request->as_string;
print $b;