#!/usr/bin/perl -w
use strict;
use warnings;
use DateTime;

my $dt = DateTime->now(time_zone => 'America/North_Dakota/Center');
#$dt->set_time_zone('Europe/Guernsey');
my $time = $dt->strftime('%F %T');
print "$time\n";