Select Code to Download

$ perl -e 'sub pdu:locked:method { return 'pdu'} print pdu(), $/'
Use of :locked is deprecated at -e line 1.
...
$ perl -e 'my @array; if (defined @array) { print 6 }'
defined(@array) is deprecated at -e line 1.
        (Maybe you should just omit the defined()?)