use strict; 
use warnings; 
 
my $startDir = 'C:\Documents and Settings\Shannon\Desktop\SETUPS AND FILES'; 
my $newDir = 'G:\BACKUP'; 
 
myReadDir($startDir); 
 
sub myReadDir { 
   my($dir) = @_; 
   opendir (DIR, $dir); 
   my @dir = readdir (DIR); 
   closedir(DIR); 
   foreach my $file (@dir)  { 
      next if ($file eq '.' or $file eq '..'); 
      if (-d $file) { 
         print "$file is a directory\n"; 
         myReadDir("$dir/$file"); 
      } 
   }             
}

my($dir) = @_;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use File::Copy::Recursive qw(dircopy); 
 
my $startDir = 'C:\Documents and Settings\Shannon\Desktop\SETUPS AND FILES'; 
my $newDir = 'G:\BACKUP'; 
 
$File::Copy::Recursive::CPRFComp = 1; 
 
dircopy($startDir, $newDir) or die $!;