report server address and port

diff --git a/lib/SIP2/SC.pm b/lib/SIP2/SC.pm
index ca5be3f..e4fb42c 100644 (file)
--- a/lib/SIP2/SC.pm
+++ b/lib/SIP2/SC.pm
@@ -21,6 +21,7 @@ sub new {
        my $class = shift;
        my $self;
        $self->{sock} = IO::Socket::INET->new( @_ ) || die "can't connect to ", dump(@_), ": $!";
+       warn "# connected to ", $self->{sock}->peerhost, ":", $self->{sock}->peerport, "\n";
        bless $self, $class;
        $self;
 }