#!/usr/bin/perl
use warnings;
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
my $somedir = shift ;
system ('tar','-c','-z','-fdir.tgz',"$somedir");
my $url ='http://myurl.com/cgi-bin/upload-dir.cgi';
my $file = 'dir.tgz';

my $ua = new LWP::UserAgent;

my $req = POST $url,
Content_Type => 'multipart/form-data',
Content => [
file => [$file]
];

my $res = $ua->request($req);
if ($res->is_success){print $res->as_string;
}else{print $res->status_line;
}
exit 0;