use Shell;
my $src = "D:\scripts";
my $dest = "D:\labserver3";
xcopy($src,$dest);