#Copyright (c) 2011 Michael R. Davis License BSD
perl -e '
use DateTime;
use Time::HiRes;
use DateTime::Precise;
my $dt=DateTime::Precise->new;
printf "%s\n", $dt->asctime;
my ($weeks, $seconds, $days)=$dt->gps_week_seconds_day;
printf "Week: %s, Seconds: %s\n", $weeks, $seconds;
print DateTime->new(qw{year 1980 month 1 day 6 time_zone UTC})->add(weeks=>$weeks)->add(seconds=>$seconds), "\n";
'