Ported more perl, untested x_x perl sucks