##
package Foo;
# test1
1;
##
##
#!/c:/perl/bin/perl
use lib q(.);
use Foo;
print "Hello!\n";
##
##
manual: ch01.fmt ch02.fmt ch03.fmt
lp ch0[1-3].fmt
ch01.fmt: ch01
nroff -mm ch01 > ch01.fmt
ch02.fmt: ch02
tbl ch02 | nroff -mm > ch02.fmt
ch03.fmt: ch03a ch03b ch03c
nroff -mm ch03[abc] > ch03.fmt