#!/usr/bin/perl -wuse File::Copy;$input = "text.txt";$output = "text1.txt";copy($input, $output) or die "Can't copy $input to $output due to $!.";