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

##</code><code>##

  cp($from, $to);

##</code><code>##

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

##</code><code>##

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