use File::Copy;

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