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

$ perl -e " use Data::Dump; dd $main::{ q{$} }; "
do {
  my $a = *main::$;
  $a = \2104;
  $a;
}