#!/usr/bin/env perl
use Modern::Perl;

seek DATA, 0, 0;
my $header = join '', (<DATA>)[0..1];

for my $fname (@ARGV) {
    unless (-e $fname) {
        open my $fh, '>', $fname;
        print $fh $header;
        say STDOUT "created $fname";
    }
    else {
        say STDOUT "*** didn't overwrite $fname";
    }
}
__DATA__