my foo {$_[0]} use CGI; my $obj = CGI::->new; foo($obj);