if ( $dbh->{Driver}->{Name} eq "SQLite" )
    {
        require Date::Calc;
        $dbh->sqlite_create_function("NOW", 0, sub {
            sprintf('%d-%02d-%02d %02d:%02d:%02d', Date::Calc::Today_and_Now());
        });

        require Math::BigInt::Random;
        $dbh->sqlite_create_function("RAND", 0, sub {
            Math::BigInt::Random::random_bigint( min => -9223372036854775808, max => 9223372036854775807 );
        });
    }