in reply to IP-number retrieval from Net::Server

Does this look any nicer ? (untested) 
sub GetClientIP {
 my $self = shift;
 return $self->get_property('peeraddr');
}

[download]

     "There are only two truly infinite things. The universe and stupidity, and I'm not too sure about the universe"- Albert Einstein

In Section Seekers of Perl Wisdom