$main_socket = IO::Socket->new(
    # params
);

# something useful here

$new_sock = $main_socket->accept();

# continue