=pod


Usage: C<$0>

=cut

$arg = shift();

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