use Socket qw( sockaddr_in inet_ntoa );
my ($port, $packed_addr) = sockaddr_in($peer);
my $addr = inet_ntoa($packed_addr);