Help for this page

Select Code to Download

Select or download this

use File::Copy;

for my $file (@ARGV) {
...
    open my $fh, '>>', $file or die "Open failed ($file): $!";
    print $fh "\n##Copyright (C) 2012 by firstName lastName\n";
}