#!/bin/perl-w 
	use DateTime;
		
				my $runtime = DateTime->new(
					year   => 2006,
					month  => 07,
					day    => 31,
					hour   => 9,
					minute => 54,
					#time_zone => "America/Los_Angeles",
					time_zone => "Indian/Christmas",
		  );

		  print"Runtime=> $runtime\n";