#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ path /;

Main( @ARGV );
exit( 0 );

sub Main {
    my @dirs      = DirsForDiddling( '.../paths.txt' );
    DiddleXmlChildren( $_ ) for @dirs;
} ## end sub Main

sub DirsForDiddling {
    my( $dirfile ) = @_;
    my @dirs = path( $dirfile )->lines_utf8;
    s/\s+$// for @dirs; ## no trailing whitespace
    return @dirs;
} ## end sub DirsForDiddling

sub DiddleXmlChildren {
    my( $directory , $date, $bak ) = @_;
    $date   ||= POSIX::strftime( '%Y-%m-%d', localtime );
    $bak    ||= "$date.bak";
    my @xml_files = XmlChildren( $directory );
    for my $file ( @xml_files ) {
        Diddle( $file, "$file-$bak" );
    }
} ## end sub DiddleXmlChildren

sub XmlChildren {
    return path( shift )->children( qr/\.xml$/ );
} ## end sub XmlChildren