#...
   if ($req_method eq 'POST') {
      DoPost($connex, $peeraddr, $req_content, $req_uri)
    } elsif ($req_method eq 'GET') {
      DoGet($connex, $peeraddr, $req_uri)
    } else {
      SendNotFound($connex)
    }
  }
  print "Connection $connectno finished.\n";
  #sleep 1 while ($connex->connected);
  $connex->close;
  print "Connection $connectno closed.\n\n";
}


sub DoPost {
    #dummy Function
    my ($c,$p,$req,$req_uri) = @_;
    $c->send_file_response(qq|c:\\temp\\foo.dat|);
}
sub DoGet {
 #dummy function
    my ($c, $p, $uri) = @_;
      $c->send_file_response(qq|c:\\temp\\foo.dat|);
      
}
sub SendNotFound {
 #dummy function
    my ($c) = @_;
   $c->send_file_response(qq|c:\\temp\\foo.dat|);
}
&RunServer;
1;