12:02 >perl 541_SoPW.pl (1, "Fred") BEGIN fn() (1, "Fred") (2, "Barney") -END- fn() (1, "Barney") 12:02 >