Select Code to Download

$ perl -wE'say(scalar(my ($x, $y)))'
Use of uninitialized value $y in say at -e line 1.

&tst(state ($x, $y));