Select Code to Download

my $obj = DynObject->new(id => 'MyObj', action => sub{print "hi\n";});

print $obj->id, "\n";
$obj->action();

$obj = MyDyn->new(id => 'MyObj');
...
{
   print "hi\n";
}

use strict;
package DynObject;
...

1;