i have no idea what i did to this perl file at this point.