#!/usr/bin/perl use strict; use Pod::Perldoc; my $doc = shift || 'doc'; $doc = "Perl6::\L\u$doc"; @ARGV = $doc; exit( Pod::Perldoc->run() );