#!/usr/lib/perl

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;

my $ua = LWP::UserAgent->new;
$ua->agent( "Mozilla/4.5" );
$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));

# configure LWP::UserAgent to follow redirects after POST
push @{ $ua->requests_redirectable }, 'POST';

$ua->request(POST "http://www.somesite.com/login.cfm",
						{
							username	=>"test",
							password	=>"abc",
							submit		=>"Submit"
						});

my $request = $ua->request(POST "http://www.somesite.com/editproduct.cfm",
       Content_Type => 'multipart/form-data',
       Content      => [			
							name		=>"Name",
							zfile		=>"$ENV{DOCUMENT_ROOT}/filename.zip",
							update		=>"Update"
						]);

$b = $request->is_success ? "Application information updated successfully.\n" : "Error during update of application information. The error has been logged and will be reviewed.\n";
print $b;