#!/bin/sh

for file in "$@"; do

  if [ -e "$file" ]; then
    echo "mkperl: \`$1' exists"
  else
    echo '#!/usr/bin/perl -w' > "$file"
    echo >> "$file"
    echo 'use strict;' >> "$file"
    echo >> "$file"
    chmod +x "$file"
  fi

done

if [ $# -gt 0 ]; then

  ${EDITOR:-vi} "$@"

fi