if(eval " use foo; 1" ) { print "loaded module ok\n"; }else{ print "could not load module $@\n"; }