package BasisModul; use CGI; sub new{ my $class = shift; my $self = bless{ CGI => CGI->new, }, $class; return $self; }