tie $mod,'ModName',{blabla} ;
return \$mod ;