Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
undef &fred;
print "can=", __PACKAGE__->can('fred'), ";\n";
fred;
  2. or download this
    Use of uninitialized value in print at test.pl line 5.
can=;
...
fred
can=CODE(0x81199b4);
Undefined subroutine &main::fred called at test.pl line 11.