sub handler
{
   my $r = shift;
   print "Content-type: text/plain\n\n";
   print "hello";
}
1;