Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print "OK 2\n" if -d $target;
copy($source,$target) or die "could not do: $!";
print ("done");
  2. or download this
    C:\_32\pscrpt>perl try.pl
OK 1
OK 2
done
C:\_32\pscrpt>
  3. or download this
    C:\_32\pscrpt>perl try.pl
OK 1
could not do:  at try.pl line 10.