I'd like to print out formatted POD when -h is passed to a program. Right now, I am using a system call:

use strict;
use Getopt::Std;

my %opts;
getopts('h', \%opts);

system "perldoc $ARGV[0]" if $opts{h};
[download]

Is there a module I could use to do this? Or a better way?