Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
    my $source = $ARGV[0];
    my $target = $ARGV[1];
    copy($source, $target) or die "Can't copy files ($!) ($?)\n";
    
  2. or download this
    ./copy.pl "testing spaces.txt" output.txt