added some additional stuff for perl coding