Here's how I would do it:

#!/perl/bin/perl -w
use strict;
use Shell;
my $src = 'D:\scripts';
my $dest = 'D:\labserver3';
my $xcopy = xcopy('/s', $src, $dest);
print $xcopy,$/;
[download]