Forces File::Copy to use HiRes times in move.

force_hires_move.pl

#!/usr/bin/perl
use v5.20;;
use warnings;

BEGIN {
        require Time::HiRes;
        # Has to come before importing File::Copy
        Time::HiRes->export( 'File::Copy', qw( stat utime ) );
}
use File::Copy;

open my $fh, '>out' or die $!;
say $fh "hai";
close $fh;

say [ File::Copy::stat('out') ]->[9];
File::Copy::move("out", "$ENV{HOME}/out");
say [ File::Copy::stat("$ENV{HOME}/out") ]->[9];