#!/usr/bin/perl

use POSIX;
use Time::Local;

print "Timezone: " . $ENV{TZ} . "\n\n";
&dateTimeToTimestamp("2008-03-30T00:59:59");
&dateTimeToTimestamp("2008-03-30T01:00:00");
&dateTimeToTimestamp("2008-03-30T01:00:01");
&dateTimeToTimestamp("2008-03-30T02:00:00");
&dateTimeToTimestamp("2008-10-26T00:59:59");
&dateTimeToTimestamp("2008-10-26T01:00:00");
&dateTimeToTimestamp("2008-10-26T01:00:01");
&dateTimeToTimestamp("2008-10-26T01:00:02");
&dateTimeToTimestamp("2008-10-26T01:30:00");
&dateTimeToTimestamp("2008-10-26T01:30:01");
&dateTimeToTimestamp("2008-10-26T01:30:01");
&dateTimeToTimestamp("2008-10-26T01:45:00");
&dateTimeToTimestamp("2008-10-26T01:50:00");
&dateTimeToTimestamp("2008-10-26T01:55:00");
&dateTimeToTimestamp("2008-10-26T01:55:59");
&dateTimeToTimestamp("2008-10-26T01:56:00");
&dateTimeToTimestamp("2008-10-26T01:57:00");
&dateTimeToTimestamp("2008-10-26T01:58:00");
&dateTimeToTimestamp("2008-10-26T01:59:58");
&dateTimeToTimestamp("2008-10-26T01:59:59");
&dateTimeToTimestamp("2008-10-26T02:00:00");
&dateTimeToTimestamp("2008-10-26T02:00:01");
&dateTimeToTimestamp("2008-10-26T02:59:59");
&dateTimeToTimestamp("2008-10-26T03:00:00");
&dateTimeToTimestamp("2008-10-26T03:00:01");

sub dateTimeToTimestamp {
        print $_[0] . "       ";
        $_[0] =~ /(\d{4})-(\d{2})-(\d{2})([ |T])(\d{2}):(\d{2}):(\d{2})/;
        my($year, $mon, $day, $GMT, $hour, $min, $sec) = ($1, $2, $3, $4, $5, $6, $7);
        print "UTC\t" . timegm($sec, $min, $hour, $day, $mon - 1, $year - 1900) . "\t";
        print "BST\t" . mktime($sec, $min, $hour, $day, $mon - 1, $year - 1900, 0, 0) . "\n";
}