Select Code to Download

my %real_functions = (
  wipe_system => sub { system "rm -rf /" },
...
    : \%real_functions;

$funcs->{'wipe_system'}->();

{
    package SystemFunctions::Real;
...
    : 'SystemFunctions::Debug';

$funcs->wipe_system();

my %dispatch = (
  incr => sub { $x++ },
  decr => sub { $x-- },
);
$dispatch{$op}->();

sub incr { shift; $x++ }
sub decr { shift; $x-- }

main->$op();