Select Code to Download

    my $d = *{ 'main::destination::' };
    delete $d->{foo};

  *FOO = sub { print "SUB FOO OK!\n" } ;
  $FOO = 123 ;
...
  foreach my $Key ( keys %holder ) { *{$glob} = $holder{$Key} ;}
}

>>>>>>>>>> BEFORE RM:
SUB FOO OK!
...
Undefined subroutine &main::FOO called at tmp.pl line 17.
CODE: 
SCALAR: 123