# ex_14-1

# Learning Perl on Win32 Systems, Exercise 14.1



my ($src, $trg) = @ARGV;

die "$src isn't a directory" unless -d $src;

die "$trg isn't a directory" unless -d $trg;

`xcopy /s /e $src $trg`;