#!/bin/sh
# create quick and dirty perl script

PATH=/bin:/usr/sbin:/usr/local/bin
export PATH

die () {
    echo "$@" >& 2
    exit 1
}

case "$#" in
    0)  die "usage: $0 file" ;;
    *)  file=$1 ;;
esac

#
# Create and edit small perl script.
#

cat <<EOF > $file
#!/usr/bin/perl
# comment

while (<>) {
    chomp;
    print "$_\n";
}

exit (0);
EOF

vim $file
exit 0