package main;

use strict;
use warnings;
use CGI;

package CGI;

sub foo {
    my $self = shift;
    return $self->p('foo');
} 

package main;

my $cgi = CGI->new;
print $cgi->foo() . "\n";