@info = stat($path->{file});
	my $createdtime = $info[10];
	print "regular created time is: $createdtime\n";
	my ($sec, $min, $hour, $day,$month,$year) = (localtime($createdtime))[0,1,2,3,4,5]; 
	# You can use 'gmtime' for GMT/UTC dates instead of 'localtime'
	$month++;
	my $displayYear = $year;
	my $realYear = $year;
	$year = $year - 80;
	$second = ceil($sec / 2);
		
	# example date, time = 18151,39092 --> not same format!?!
	
	# time 16 bit int -- bit 15-11 hour, 10-5, minute, 4-0 second / 2
	#my $encSecond = $second & (2**5-1);
	#my $encMinute = $minute & (2**6-1);
	#my $encHour = $hour & (2**5-1);

	# date 16 bit int -- bit 15-9 value based on 0 as 1980, bit 8-5 month value from 1 to 12, bit 4-0 day, value from 1 to 31	
	#my $encDay = $day & (2**5-1);
	#my $encMonth = $month & (2**4-1);
	#my $encYear = $month & (2**7-1);
	
	#use integer;
	my $data = $year . $month . $day . $hour . $min . $second;
	print "using $data as input for pack\n";
	#my $data = $second . " " . $minute . " " . $hour . " " . $day . " " . $month . " " . $year;
	#my $createdtimeFat =  pack "N8", $data;
	my $createdtimeFat =  pack "N8", $year,$month,$day,$hour,$min,$second;
	#my $createdtimeFat =  ($year << 25) | ($month << 21) | ($day << 16) | ($hour << 11) | ($min << 5) | ($second << 0);
	#my $createdtimeFat =  (($year & (2**7-1)) << 25) | (($month & (2**4-1)) << 21) | (($day & (2**5-1)) << 16) | (($hour & (2**5-1)) << 11) | (($min & (2**6-1)) << 5) | (($second & (2**5-1)) << 0);
	# 8 digits
	# 8 = year
	# 7 = year + month
	# 6 = month + day
	# 5 = day
	####
	# 4 = hour
	# 3 = hour + month
	# 2 = minute + second
	# 4 = second
	#my $createdtimeFat = '469f9f01';
	#my $hex = sprintf("0x%x", $createdtimeFat);
	#my $hex = printf("%x",$createdtimeFat);
	
	print "Unix time ".$createdtime." converts to ".$month." ".$day.", ".($displayYear+1900)." ".$hour.":".$min.":".$sec." year (in offset from 1980) is $year [real year is $realYear]\n";
	#print $encSecond ." ". $encMinute ." ". $encHour ." ". $encDay ." ". $encMonth ." ". $encYear . "\n";
	print "createdtimeFat should look something like 46ef99c6\n";
	print "createdtimeFat is $createdtimeFat\n";
	my @unpacked = unpack("N8",$createdtimeFat);
	print "and unpacked: " . @unpacked . "\n";
	my $setdate = getHttp($cardip, "upload.cgi?FTIME=0x" . $createdtimeFat);
	print "result of setdate operation: $setdate\n";