Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...


print( $op{toupper}->('foo'), "\n" );
  2. or download this
    Name "main::uc" used only once: possible typo at a.pl line 5.
Not a CODE reference at a.pl line 10.