#!/usr/bin/perl

use warnings;

# Could NOT get cp -r src_dir/* to work in expect -- won't accep the '*' for some reason.
# More than one way to skin a cat, as we say

print "copy_files.pl called!\n";
if ($#ARGV != 1)
   { die "ERROR: copy_files.pl: src_dir (experiments/AlgorithmTesting) dest_dir (../results/TEMP_PUF_ALL/1_on_AL/STABLE_BF_250uV_S12345)\n"; }

$src_dir = $ARGV[0];
$dest_dir = $ARGV[1];

system("cp -r $src_dir/\* $dest_dir");
