Easier (and safer) than the following?

use File::Copy;

copy($input, $output)
    or die "Error copying '$input' to '$output': $!";
[download]

-ben