Help for this page
Select Code to Download
Select
or
download this
#!/usr/bin/perl -w use strict; ... __END__ Yes, I'm here. No such sub: bar
Select
or
download this
(UNIVERSAL::can('main', $sub) or sub { print "No such sub: $_\n" })->();