package pm::mytest;

sub message {
  return 'Hello from pm:mytest';
}
1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser';

use lib 'd:/apache24/htdocs';
use pm::mytest;

my $msg = pm::mytest::message();

my $q = CGI->new;
print $q->header,$q->start_html,
$q->h1($msg),$q->end_html;