#!/usr/bin/perl
use Date::Manip;

if ( !defined($ENV{'TZ'}) ) { 
	print "Tz not set!\n";
	$ENV{'TZ'} = "-0800"; 
}		
my $time_zone = $ENV{'TZ'};
my @strings = ( 
	"1999/12/12", 
	"02-03-01", 
	"10-13-97", 
	"2001-11-28" 
);

foreach $string ( @strings ) {
	my $date = &ParseDate( \$string );
	print "string is $string date is $date \n";
}