Ich schwimme: variables Package

[Beat]

Ich kann zur runzeit erst ein pm laden, also mit require.
Der name des files wird vom User gegeben. (filepfad ist limitiert, kein problem)

Hacke mich derzeit erfolglos durch compile time Errormessages durch.

  
sub __load_perl_module{  
   # $_[0] sollte "html.pm" enthalten  
   $_[0] =~ /^([a-z]+)\.pm$/  
       or return 'ERROR Bad Module Name' . $_[0];  
  
   require $_[0];  
  
   $_[0] =~ s/^([a-z]+)\.pm/$1/; # sollte nun "html" enthalten.  
  
   # hier will ich an eine Variable %html::export gelangen  
   foreach( keys ( "%" . $_[0] ."::export" ) ){  
       next if /^__/;  
       exists $c_self->{function}{$_}  
          or $c_self->{function}{$_} = $$_[0]->{function}{$_};  
   }  
}  

Wie muss ich die Variable zusammensetzen, damit sie als solche erkannt wird?

mfg Beat