system qq[ dir "d:\\program files\\win*.*" ];

my $src = "d:\\program files\\*.*";
system qq[ xcopy /s "$src" x: ];