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

my $toDate = localtime->strftime('%F %T');

foreach my $file (glob "C:\\data\\app\\AppSpecific1\\In\\test*")
{

	my $archiveFileName = $file."_".$toDate.".txt";
	
	print "copy $file, $archiveFileName\n";

	copy ($file, "C:\\data\\app\\AppSpecific1\\Archive\\".$archiveFileName) or die "Copy failed: $!";
	
}