Have a look at perltoot and into OO Tutorials in the Tutorials section of the monastery.

What you need is a constructor that uses the bless function together with the class name.
You can obtain an object's class name using the ref-function.

Cheers, Sören