sub FatalError
{
        my $message = shift;

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

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