package Foo; use CGI; sub new { my $class = shift; bless {cgi => CGI->new}, $class; };