say sprintf "c:%04x vk:%04x sc:%04x r:%1s",$char,$v_key_code,$v_scan_code,chr($char&0xFF);