testserver.pl 263 B

1234567891011121314151617
  1. use FSSCGI;
  2. my $handle = new FSSCGI::SCGIhandle();
  3. if ($handle->bind("127.0.0.1", 7777)) {
  4. while($handle->accept()) {
  5. print "REQ: " . $handle->getBody(). "\n\n";
  6. $handle->respond("W00t!!!!!!\n");
  7. }
  8. print "DONE\n";
  9. } else {
  10. print "FAIL\n";
  11. }