Select Code to Download

my $scalar_ref = \10;
my $x = ${$scalar_ref}; 
...

my $sub_ref = sub {print "hello\n"};
&{$sub_ref}();

#setup:
-------
...
 
&{"color"}();   #grab the subroutine slot for 'color' 
                #and execute the sub