Select Code to Download

$ perl -le " use strict; use diagnostics; my $peter; print scalar @$pe
+ter;
Can't use an undefined value as an ARRAY reference at -e line 1 (#1)
    (F) A value used as either a hard reference or a symbolic referenc
+e must
...

Uncaught exception from user code:
        Can't use an undefined value as an ARRAY reference at -e line 
+1.