Select Code to Download

perl -e 'use strict; use warnings; print "$::|\n";'

Use of uninitialized value $main:: in concatenation (.) or string at -
+e line 1.
|

my $thingy =  $::|;