use strict;
use Time::HiRes;
use File::Temp qw/ tempfile/;

	my ($fh1, $filename1) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
	my ($fh2, $filename2) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
	my $atime = 1.111111111;
	my $mtime = 2.222222222;
	my ($got_atime, $got_mtime) = (Time::HiRes::stat($fh1))[8, 9];
	my $now = Time::HiRes::time;
	my $timenow = scalar $now;
	my $got_atimenow = scalar $got_atime;
	print "$timenow\n";
	print "$got_atimenow\n";
	print abs($got_atime - $now);
	# is Time::HiRes::utime(undef, undef, $filename1, $fh2), 2, "Two files changed";

	# {
	# 	my ($got_atime, $got_mtime) = ( Time::HiRes::stat($fh1) )[8, 9];
	# 	cmp_ok abs( $got_atime - $now), '<', 0.1, "File 1 atime set correctly";
	# 	cmp_ok abs( $got_mtime - $now), '<', 0.1, "File 1 mtime set correctly";
	# }
	# {
	# 	my ($got_atime, $got_mtime) = ( Time::HiRes::stat($filename2) )[8, 9];
	# 	cmp_ok abs( $got_atime - $now), '<', 0.1, "File 2 atime set correctly";
	# 	cmp_ok abs( $got_mtime - $now), '<', 0.1, "File 2 mtime set correctly";
	# }