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

##</code><code>##

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

##</code><code>##

my $thingy =  $::|;