my $returnval = qx( xcopy /S /E /V $fromdir\*.* $todir\ );