#!/bin/bash
# Created by Ben Okopnik on Mon Apr 28 11:41:01 EDT 2008

# Enter your name here; otherwise, your login name will be used
name=""

[ -z "$1" ] && { printf "Usage: $0 <file_to_create>\n"; exit; }
[ -f "$1" ] && { printf "File already exists!\n"; exit; }

printf "#!`which perl` -w\n" > $1
printf "# Created by ${name:-$USER} on `date`\nuse strict;\n\n\n" >> $1
chmod +x $1
vi + $1

##</code><code>##

map <silent> <F2> :set filetype=perl<CR>:set kp=perldoc\ -f<CR>:0<CR>:-r!which perl<CR>I#!<ESC>$a -w<ESC>o# Created by Ben Okopnik on^[:r!date<CR>-J^<CR>iuse strict;<CR><CR>
map <F5> :w<CR>:![ -x "%:p" ]\|\|chmod +x "%:p"<CR>:!"%:p"