Select Code to Download

mysubroutine {block} @list;

map (sub { "1" x $_ }, (1..10));

perl -wle 'print prototype("CORE::map")'

Use of uninitialized value in print at -e line 1.