package XYZ;
use strict; use warnings;
our $VERSION = 1;
use parent 'LWP::UserAgent';
sub new {
 my $class = $_[0];
 my $self = $class->SUPER::new();
 bless($self, $class); # rebless to our own class
 # setting some own data in self:
 $self->{'debug'} = 1;
 $self->{'ABC'} = 42;
 return $self
}