sub socket_class
{
    my $self = shift;
    (ref($self) || $self) . "::Socket";
}