Select Code to Download

sub FatalError
{
...
        CloseLog;
        die "ERROR: $message ($filename linea $line)\n";
}

$conn = Net::SFTP::Foreign::Compat->new($ftp_host,(user => $ftp_user))
+;
if ( $conn->error )
...
    my $errormsg=$!;
    FatalError "Error: $errormsg";
}