#!/usr/bin/perl

use Pod::Find qw(pod_where);
my $pod =  pod_where( { -inc => 1 }, $ARGV[0] );
`pod2html --infile=$pod --outfile=/tmp/pod.html --noindex; konqueror /tmp/pod2.html`;