Select Code to Download

#! perl
use strict;
...
delete $person{name};

BEGIN      { print "BEGIN 4\n"; }

BEGIN 1
BEGIN 2
...
Ambiguous call resolved as CORE::each(), qualify as such or use & at 1
+66_SoPW.pl line 13.
BEGIN 4
name: Ken Takakura