my $Status = "";
print "Content-type: text/html\n\n";
eval "use Foo::Bar" or $Status = "Foo::Bar geht nich";
print "Status = $Status";
exit;