use Net::FTP;<br><br>BEGIN {<br> $SIG{__DIE__} = 'IGNORE'<br>}<br><br>my $ftp = Net::FTP->new();<br><br>$ftp->abcd;<br><br>print "TESTE\n";<br>exit(1);<br><br><br>Alguem sabe dizer se esse erro emite sinal ?<br>