Select Code to Download

$Commands{'log'}{'function'} = sub { createlog(shift) };
$Commands{'modules saveall'}{'function'} = sub { savemodules() };
$Commands{'modules loadall'}{'function'} = sub { loadmodules(shift) };
# extra example for module call:
$Commands{'foo'}{'function'} = sub { Bar->foo(@_[0, 1]) };

$code = 'print "Hello, $name!\n";';
$sub = eval "sub { my \$name = shift; $code }";
print "Ready to test:\n";
$sub->('world');