Существует ли модуль Perl, который работает так же к Unix, “которые” управляют?

function clone(obj)
 { var clone = {};
   clone.prototype = obj.prototype;
   for (property in obj) clone[property] = obj[property];
   return clone;
 }