use POD::Perldoc;

sub help {
   exit( Pod::Perldoc->run(args=>[$0]) );
}