#!/usr/bin/perl
use strict;
use warnings;
use database;

my $ok=database::insert_tab('test_table',{ id=> 1, user => 'a', wert => 'b', 'time' => localtime() },'id');
print $ok?"OK":"Fehler!","\n";
database::close_db();