sub FatalError
{
        my $message = shift;

        my ($package, $filename, $line) = caller;

        Log "ERROR","$message ($filename linea $line)";
        CloseLog;
        die "ERROR: $message ($filename linea $line)\n";
}

##</code><code>##

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