#!/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";
}

##</code><code>##

Tz not set!
string is 1999/12/12 date is 1999121200:00:00 
string is 02-03-01 date is 2002030100:00:00 
string is 10-13-97 date is  
string is 2001-11-28 date is 2001112800:00:00