view release on metacpan or  search on metacpan

eg/httpd  view on Meta::CPAN

      }

      $res .= "</tr></table></body></html>";

      $req->respond ([200 => "OK", { 'Content-Type' => 'text/html' }, $res]);
   },
   '' => sub {
      my ($httpd, $req) = @_;

      my $file = static::find substr $req->url, 1;
      $req->respond ([200 => "OK", { 'Content-Type' => 'text/plain; charset=utf-8' }, $file]);
   },
);

$httpd->run;