use strict;
my $q = My::CGI->new;
print $q->h1('hello world'),$/;

package My::CGI;
use base qw(CGI);
sub h1 { "<42>$_[1]</42>" }