#!usr/bin/perl
use strict;

use File::Find;
use File::Copy;
my @location=("\\\\network1\\pics","\\\\network1\\fonts","\\\\network1\\forms");
my $new_location="\\\\network1\\Sol";

foreach my $location(@location){
find(\&force_move,$location);

}
sub force_move(){
my $file=$_;
print "copying $File::Find::file from $File::Find::dir\n";
copy($file,$new_location) or warn "$!" ;
}

print "Hey , I am done!!!!";
sleep(2);