use CENSORED;

##</code><code>##

PerlModule CENSORED

##</code><code>##

package NotQuiteApache;

use v5.12;
use warnings;

sub new
{
    my $class=shift;
    my $self=bless {},$class;
    # you may need to add some FCGI init here
    # you may need to add some data to %$self.
    return $self;
}

sub print
{
    my $self=shift;
    return CORE::print @_;
}

# you may need to add more wrapper methods here

1;

##</code><code>##

# ...
use NotQuiteApache;
# ...
my $r=NotQuiteApache->new();
# ...
$r->print("Hello World!");
# ...