$ perl -l -
print for $$,  ${ '::$' },  ${  $main::{ '$' }  };
&{  $main::{ '$'  }  };
__END__
2840
2840
2840
Undefined subroutine &main::$ called at - line 2.