This is a little perl linter that I wrote. It will make any Perl script 100% better.

perl-linter

#!/bin/bash

FILENAME=""
if [ -e $1 ]; then
  FILENAME=$1
fi

if [ ! -z $FILENAME ]; then
  FILENAME=/dev/stdout
fi

echo '#!/usr/bin/python'         >  $FILENAME
echo '#'                         >> $FILENAME
echo '# Youll thank me for this' >> $FILENAME