Ported script for Modperl

Initial Commit