sub MyModuule::DoTheCgiDanceOTHER {
   my $query = CGI->new;
   my( $headers, $body ) = PutOnSomePants( $query );
   print $headers, $body;
}

sub MyModuule::DoTheCLIDanceOTHER {
## no advanced getopt stuff
## just key value key value key value
   my $query = CGI->new( @_ );
   my( $headers, $body ) = PutOnSomePants( $query );
   print $body;
}