From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MSTROUT / Web-Simple-0.033 / examples / hello-world / hello-world.cgi 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!/usr/bin/perl
use Web::Simple 'HelloWorld';
{
  package HelloWorld;
  sub dispatch_request {
    sub (GET) {
      [ 200, [ 'Content-type', 'text/plain' ], [ 'Hello world!' ] ]
    },
    sub () {
      [ 405, [ 'Content-type', 'text/plain' ], [ 'Method not allowed' ] ]
    }
  };
}
HelloWorld->run_if_script;