Updated report generator perl script