#Two-click copying of files to USB memory stick for executive staff
#JWC started 5/30/06
#Assumptions: Memory stick is always D:, can use absolute path to get to contin stuff

use File::Copy;
use File::Find;

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted{};

$status1=finddepth(\&wanted,"D:\\");

sub wanted{
  print "deleting $name:\n";
  if (-f $name){
    unlink($name);
  }elsif (-d $name){
    rmdir($name);
  }
}

$source="\\\\server\\dir\\files\\";
$dest="D:\\";
if (-e $source ){
  print "found $source. \n";
}
if (-e $dest ){
  print "found $dest. \n";
}
$status=system("xcopy $source $dest");
print "Status of copy is $status: $!";