>perl -wMstrict -le "my $dir = 'test'; mkdir $dir or die qq{mkdir: $!}; my $bt = `copy junque $dir`; print qq{[[$bt]]} if $bt; print `dir $dir`; print `fc junque test\\*`; " [[ 1 file(s) copied. ]] Volume in drive C is Acer Volume Serial Number is 9480-355B Directory of c:\@Work\Perl\monks\oko1\test 11/20/2010 06:54 PM . 11/20/2010 06:54 PM .. 11/20/2010 06:49 PM 20 junque 1 File(s) 20 bytes 2 Dir(s) 257,344,540,672 bytes free Comparing files junque and TEST\junque. FC: no differences encountered