$code=$database{$AUTOLOAD}; # e.g: "sub pkg::foo {...}"
eval $code; 
$@ and error_msg($AUTOLOAD, $@, $code);
goto &$AUTOLOAD;