use Data::Dump qw(dump);
use autodie;
+BEGIN {
+ my $cwd = $0;
+ $cwd =~ s{/[^/]+$}{};
+ chdir $cwd;
+
+ open(my $log, '>', 'log.'.strftime("%Y-%m-%dT%H:%M:%S",localtime()));
+ select($log);
+ $|=1;
+}
+
use lib '.';
use Protocol;
my $queue = "queue";
-$|=1; # flush STDOUT
-
my $dbh = DBI->connect("dbi:Pg:dbname=zc", "dpavlin", "", { RaiseError => 1 });
my @columns = split(/\n/, <<__COLUMNS__);
0x01 PN