Help for this page

Select Code to Download


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