if i try print $socket $obj->present i get the good message but on STDOUT

Your present method should just return the data rather than printing it out itself, ie both present() and the thing calling it are trying to do a print.

Dave.