if ($ftpaccount) {
# connect to ftp account
my $ftp = Net::FTP->new( $ftpaccount->{host}, Timeout => 10 )
my $ftp = Net::FTP->new( $ftpaccount->{host}, Passive=> 1, Timeout => 10 )
or $newerr = 1;
if ( !$newerr ) {
$newerr = 0;
-