Help for this page

Select Code to Download

Select or download this

print $_, ':', eval{ $_->(); 1 } ? "S'ok" : "Uht erd!" 
    for sub{ print 'good code' }, \&doesNotExist;;
...
CODE(0x194a9b4) : S'ok
CODE(0x194a954) : Uht erd!