use File::Copy; for my $file (@ARGV) { -e $file or warn("File not found: $file\n"), next; copy($file, "$file.bak") or die "Copy failed ($file): $!"; open my $fh, '>>', $file or die "Open failed ($file): $!"; print $fh "\n##Copyright (C) 2012 by firstName lastName\n"; }