#!/usr/bin/perl --
use strict; 
use warnings;
use Path::Tiny qw/ path /;
my $g = path( 'goner' );
$g->remove_tree;
$g->mkpath;
print "$_ ", scalar( gmtime( $g->stat->$_)), "\n" for qw/ ctime mtime atime /;
sleep 12;
$g->touch;
print "$_ ", scalar( gmtime( $g->stat->$_)), "\n" for qw/ ctime mtime atime /;
$g->remove_tree;
__END__
$ perl gonerbegone.pl
ctime Tue Sep 15 01:04:33 2015
mtime Tue Sep 15 01:04:33 2015
atime Tue Sep 15 01:04:33 2015
ctime Tue Sep 15 01:04:33 2015
mtime Tue Sep 15 01:04:45 2015
atime Tue Sep 15 01:04:45 2015