#!/usr/bin/perl
# printpdoc - print the perl documentation for a module

print STDERR "Usage : printpdoc files\n" unless @ARGV;
exit 1 unless @ARGV;

for my $i (@ARGV) {
	
	system("/usr/bin/perldoc -MPod::Man $i|groff -S -mandoc|lpr -o sides=two-sided-long-edge -o number-up=4");
}