perl -wMstrict -E 'my $x; say *::x; say *main::x'
*main::x
*main::x