use strict;
use Getopt::Std;

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

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