my $sub = sub { ... };
no strict 'refs';
*{"Alex::Log::$name"} = $sub;