#!usr/local/bin/perl
use LWP::Simple;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common qw/POST/;

LWP::Debug::level('+') ;

push(@INC, '/opt/customer/apps/sun-83/nes363/suitespot/cgi-bin/lib/LWP/') ;
my $ua= LWP::UserAgent->new;
my $file="/home/hewebadm/nilay/test1.txt" ;
my $filename="323272-1980-test1.txt" ;
open(READFILE, "<$file") ;
@data=<READFILE> ;

# Have to post the file and parameters at this URL #
my $url="http://downloaddev.pearsoncmg.com/extmanage/extpost.php" ;

# I Have hard coded the parameters for now#

$request = POST $url,
       Content_Type => 'application/x-www-form-urlencoded',
       Content      => [ action => "insert",
                         file => "@data",#have tried with file=>$file 
                         filename  => "$filename",
                        parentisbn   => "0131406701",
                         linktext => "test1.txt",#present in curr dir
                         type   => "Presentations",
                         imprint =>"ph" ,
                       ] ;

my $results=$ua->request($request );

print Dumper($results);
if($results->is_success){
        print $results->as_string() ;
        print $results->status_line();
}