use LWP::UserAgent;

$URL_Server = $ARGV[0];
$fn = $ARGV[1];


my $ua = LWP::UserAgent->new();
my %fields = (upload_file => $fn);
my $res = $ua->post("http://$URL_Server/cgi-bin/store.pl", \%fields, 'Content_Type' => 'multipart/form-data');

print $res->as_string;