Select Code to Download

BEGIN
{
    for my $datum (qw( name full_name root_oid plugin_oid full_oid ))
...
        do { no strict 'refs'; *{ $datum } = sub };
    }
}