package My::Simple;

use strict;
use warnings 'all';
use Apache2::RequestRec ();

sub handler : method {
  my ($class, $r) = @_;

  print "content-type: text/html\n\n";
  print "<h1>HELLO WORLD!</h1>";
  return 0;
}

1;# return true: