On Thu, 9 Jan 2003 9:10pm -0200, Ednardo Lobo wrote: > if (not undef $sock) { Condição sempre verdadeira. Troque, printf("%s/%s!\n", $sock?"aberto":"fechado", getservbyport(139, 'tcp')); close($sock); -- Felipe Kellermann