package IO::Socket::SecureSocks;

use strict;
use warnings;

use IO::Socket::Socks;
use IO::Socket::SSL;

sub new {
    my $self = IO::Socket::SSL->new(@_);
    bless $self, "IO::Socket::Socks";
}

1;