#!/usr/bin/perl

@stty = (
         '-brkint',
         '-imaxbel',
         '-ignbrk',
         'icrnl',
         'iexten',
         'icanon',
         'onlcr',
         'echo',
         );
%stty = (
         intr   => '^C',
         quit   => '^\\',
         erase  => '^H',
         kill   => '^U',
         eof    => '^D',
         start  => '^Q',
         stop   => '^S',
         susp   => '^Z',
         rprnt  => '^R',
         werase => '^W',
         lnext  => '^V',
         flush  => '^O',
);

system('stty', @stty, %stty);
print("\x0f\n"); # 0x0fを表示するとなぜか正気に帰ることがある。
print("\033(B\n"); # ISO-2022-JPのリセット。有効かどうかは不明。
system('clear');