package CGI::Mor; 
use base 'CGI';

1;

##</code><code>##

package CGI::Mor; 
use base 'CGI';
use strict;

sub footermod {
 my $self = shift;
 my $arg = shift; 
 $arg ||= 'default arg';
 my $out = $self->p(
   $self->small('welcome to this message! '. $arg )
 );
 return $out;
}

1;

##</code><code>##

use CGI::Mor;
my $cgi = new CGI:Mor;
print $cgi->footermod;