Select Code to Download

#!perl

...
$q->end_html();
close(FH);
close(LOG);

use LWP::UserAgent;

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

print $res->as_string;