Select Code to Download

#perl

...
      print $res->status_line, "\n";
}
print "\n\n";

package testapp;

...

1;

#!/usr/bin/perl

...
      '/test.txt' => 'testapp',
  });
$server->run();