#!perl -w
#
# Archiver for processed EDI messages
#	- move all messages to existing subfolder *\yyyy\mm\dd

use strict;
use warnings;
use Time::Piece;
use File::Copy;

my $base = 'D:\\Some\\Specific\\Folder\\';
	# The source folder

my $to = $base.localtime()->ymd ('\\')."\\";
	# The destination folder

foreach my $file (glob qq($base\*.txt)) {
    File::Copy::move $file, $to  or  warn "Can't move $file to $to : $!";
}
	# The actual move

exit 0;
	# The graceful ending