This is bad
$year+1900; :) use
File::stat through
Path::Tiny, use
Time::Piece , the convenience is very convenient :) and the
error checking exeptions are free
sub cftsain {
use Time::Piece qw/ localtime /;
use Path::Tiny qw/ path /;
my( $source, $destination, $testxt ) = @_;
my $sourceStat = path( $source )->stat;
my $destStat = eval { path( $destination )->stat };
if( not $destStat ) {
path( $source )->copy( $destination );
} else {
my $sourceMtime = $sourceStat->mtime;
my $destMtime = $destStat->mtime;
if( $sourceMtime > $destMtime ) {
path( $source )->copy( $destination );
}
}
if( index( lc( $source ), 'ky2.gif' ) > -1 ) {
out_exclusive(
$testxt,
localtime( $sourceStat->mtime ),
localtime( $destStat->mtime ),
);
}
} ## end sub cftsain