#!c:\perl\bin -w


use LWP::UserAgent;
use HTTP::Request::Common;

my $url   = "http://192.168.0.200/maintenance/instructions";
my $fname = "test.txt";

my $ua  = LWP::UserAgent->new();
my $req = POST $url,
	Content_Type => 'form-data',
	Content      => [
		  submit => 1,
		  upfile =>  [ $fname ]
	                ];
my $response = $ua->request($req);

if ($response->is_success()) {
    print "OK: ", $response->content;
} else {
    print "Failed: ", $response->as_string;
}

exit;