Select Code to Download

$foo=5;
sub has {print "ok\n"}
sub hasnt {print "no dice\n"}

eval "require $foo" ? has : hasnt

$foo="nosuchmodule";
sub has {print "ok\n"}
sub hasnt {print "no dice\n"}

eval "require $foo" ? has : hasnt