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

while (<@ARGV>) {
    my $fname = $_;
    unless (-e $fname) {
        open my $fh, '>', $fname;
        say $fh "#!/usr/bin/env perl";
        say $fh "use Modern::Perl;\n\n";
        say STDOUT "created $fname";
    }
    else {
        say STDOUT "*** didn't overwrite $fname";
    }
}