adding the hi coverage perl stuff