if ( $ARGV[ 0 ] eq '--manual' ) {
    0 == system 'perldoc', $0 or die $?;
    }


__END__

=pod

=head1 B<NAME>

perlmonc - This is my program

=cut