use strict; my $type = shift || 'CGI'; require "$type.pm"; my $obj = $type->new; print ref $type;