Select Code to Download

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

 $ perl -e " use Data::Dump::Streamer; Dump $main::{ q{$} }; "
$VAR1 = *{'::$'};
*{'::$'} = \4032;
...
  $a = \2104;
  $a;
}