Perlで、オブジェクトIDみたいなのは取ってこれますか。
my $obj = new Foo();
print $obj->__id__; #=> 0x314159265358
$obj = new Foo();
print $obj->__id__; #=> 0x314159298940
みたいなの。