Select Code to Download

D:\tmp\pm>perl -Mfeature=:all -M-warnings
sub uc_name { my \$name = \$_[0]; $name = uc $name }
...
__END__
KEN

# warn
  my $x = ...;