#!C:/activeperl/bin/perl-w
use strict;
open(OFILE,">myfile.pm") or die("Can't open myfile.pm\n$!");

print OFILE <<EOF;
package myTestPackage;
sub mytest() { print "hello World!\n"; }
1
EOF

close(OFILE);

require "myfile.pm";
myTestPackage::mytest();