Committed original perl script as-is