I don't know what your problem may be, but FYI the following works for me under Windows 7 and Strawberry 5.10.1.0:

>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    <DIR>          .
11/20/2010  06:54 PM    <DIR>          ..
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
[download]