our @ISA = qw(IO::Socket::INET);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new( blah blah );
    $self->{myclass_somefield} = xyz;