#!/perl/bin/perl
  use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  use LWP::Debug qw(+);

  my $ua = new LWP::UserAgent;  

  my $req = POST 'http://www.perfectmotion.co.uk/upload4s.cgi',
               [ filename => '111', file => 'C:\test.bat? ];
               
           #    print $req;
               
             
 my $res = $ua->request($req);
  print $res->as_string;