$sourcedir="J:/sortdata/sortsafe/probers/prbrsort/EG_ROOT/PRODUCTS"; 
$timestamp=($targetdir.$date); 
mkdir ($timestamp) || die "Cannot mkdir $targetdir: $!"; 
@args = ("xcopy $sourcedir $timestamp"); 
system(@args) == 0 || die "Cannot xcopy @args";