#!/usr/bin/perl

use strict;
use lib '../libs';

use DBI;
use database;
use DateTime;
use DateTime::Format::SQLite;

my $dbh=getDatabase('test');

my $sth=$dbh->prepare('Select utcdate from process');
$sth->execute();

my ($t)=$sth->fetchrow_array();
print "$t\n";

my $dt=Datetime::Format::SQLite->parse_datetime($t);

print "$dt\n";