use strict;
use warnings;

my $test1 = 'test1';
my $test2 = 'test2';

open my $fOut, '>', $test1;
close $fOut;

open $fOut, '>', $test2;
close $fOut;

print "$_: ", (stat $_)[9], "\n" for $test1, $test2;

sleep 5;

open $fOut, '>', $test2;
close $fOut;

print "$_: ", (stat $_)[9], "\n" for $test1, $test2;