=pod


Usage: C<$0>

=cut

$arg = shift();

if (defined($arg) && $arg eq '-h') {
    print `pod2text $0`;
}