sub MyModuule::DoTheCgiDance {
    my $query = CGI->new; ## FORMDATA
    my( $headers, $body ) = DoTheDance( $query );
    print $headers, $body;
}