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