if($ARGV[0] eq '--manual') {
   < PRINT MAN PAGE FROM FUNCTION BELOW >
}

sub Documentation () {
  return "
  =pod

  =head1 B<NAME>

  perlmonc - This is my program
  
  =cut
  "
}