package OverloadObj::Test; use OverloadObj; sub new { bless {}; } sub speak [ print 'Speak\n'; } sub OVERLOAD { return 'Bob'; } package main; $test = new OverloadObj::Test; $test->speak; print "$test";