#pseudo code in class 'top'
sub new {
 my $class = shift;
 .
 .
 return open($class , $some_args);
}

sub open {
 my $class = shift;
 .
 .
 # I guess this is where the blessing of to $class happens ?
 my $sock = $class::SUPER->new($some_args);
 .
 .
 return $sock->request($some_args);
}

sub sysread {
 my $class = shift;
 .
 .
 $class::SUPER->read($var, 20);
 .
 .
 return $sock->request($some_args);
}

#pseudo code in class 'remote'
sub sysreadline(*;$) { 
	my ($handle, $maxnap) = @_;

        .
	$handle = qualify_to_ref($handle, caller());
        sysread($handle, $var, 10);
        .
}


sub request {
 my $self = shift;
 .
 sysreadline($self, 10);
 .  
}