Initial import of perl script