my $s_socket = IO::Socket->new(...);
# jetzt mit $s_socket weiter arbeiten