Select Code to Download

  system($cp, $from, $to);

  cp($from, $to);

sub cp {
  system('/bin/cp', @_);
}

sub cp {
  require File::Copy;
  File::Copy::cp(@_);  #doesn't work for wildcards, I think.
  # File::Copy::cp(map {glob $_}, @_) # <-- might be needed for wildca
+rds
}