Perl Coding Help

Hi, I'm trying to implement Net::RabbitFoot into a package, and have a callback as a function of the package and i'm having a difficult time getting it to work properly. I'm not sure if i'm understanding properly, so that will also be making it more difficult. Sample code is attached for the module, basically when the sub main() is called I want to specify a callback for the consume sub of Net::RabbitFoot and in that callback I want to reference $self however I'm getting a non blessed error. Any help would be great, I'm sure it's just a flaw in my logic. Cheers.