if ($class !~ /^[a-z0-9_]*$/i) { print $cgi->header(); print "
##
eval {
require $class . ".pm";
};
if ($@) {
print $cgi->header();
print "$@";
print " The class '$class' does not exist!
";
} else {
# Do your stuff.
$class->main($cgi,$user);
}