# 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`;