I've been using something like this:

 #Take five shots at getting an available port
 foreach ( 1..5 ) {
  last if $sock->send($request);
 }
 return undef unless $sock;
[download]

____________________
Jeremy
I didn't believe in evil until I dated it.