>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