#!/bin/sh

for file in "$@"; do

  if [ -e "$file" ]; then
    echo "mkperl: \`$file' exists"
  else
    cat <<EOF > "$file"
#!/usr/bin/perl -CSDAL

use strict;
use warnings;
use utf8;

EOF
    chmod +x "$file"
  fi

done

if [ $# -gt 0 ]; then

  ${EDITOR:-vi} "$@"

fi