#!/usr/bin/perl
use strict;
use Date::Manip;
my $date = &ParseDate("2002-05-29 08:00:00");
print "The unconverted date is [".&UnixDate($date,"%Y-%m-%d %H:%M:%S")."]\n";
my $from = 'MDT';
my $to = 'GMT';
my $converted = &Date_ConvTZ($date,$from,$to);
print "The conversion from [$from] resulted in [".&UnixDate($converted,"%Y-%m-%d %H:%M:%S")."]\n";
$from = 'MST7MDT';
$converted = &Date_ConvTZ($date,$from,$to);
print "The conversion from [$from] resulted in [".&UnixDate($converted,"%Y-%m-%d %H:%M:%S")."]\n";