perlrot_touchpoint_sw