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