#!/usr/bin/perl -w
use HTTP::Request::Common;
use LWP::UserAgent;
LWP::Debug::level('+');

# Create a user agent object
my $ua = LWP::UserAgent->new() or die "$!\n";

# Set the request parameters
my $clientfile = '/home/cmilfo/MINE/cmilfo.pubkey';
my $serverfile = 'cmilfo.pubkey';
my $user       = 'cmilfo';

# Create a request
my $response =
  $ua->request(POST 'https://mail007style/pubkeys/upload.pl',
                    Content_Type => 'form-data',
                    Content      => [ clientfile => ["$clientfile"],
                                      serverfile =>   $serverfile,
                                      user       =>   $user,
                                    ]
               );

if($response->is_success) {
  print STDOUT $response->content;
} else {
  print STDOUT "request failed: ", $response->status_line, "\n";
}

__END__