#speed 19200 baud; line = 0; susp = ^Z; dsusp <undef>

#speed 19200 baud; line = 0; susp = ^Z; dsusp <undef>
#rows = 0; columns = 0
#intr = ^C; quit = ^\; erase = ^H; kill = ^X; swtch = ^@
#eof = ^A; eol = ^A; min = 1; time = 1; stop = ^S; start = ^Q
#-parenb -parodd cs8 -cstopb hupcl cread -clocal -loblk -crts
#-ignbrk brkint ignpar -parmrk -inpck istrip -inlcr -igncr icrnl -iuclc
#ixon ixany -ixoff -ienqak
#isig -icanon iexten -xcase -echo echoe echok -echonl -noflsh
#opost -olcuc onlcr -ocrnl -onocr -onlret -ofill -ofdel -tostop

chop(@tmp=`stty -a`);
for ($i=0;$i<4;$i++){
$arg .= split(/;/, $tmp[$i]);
}
for ($i=4;$i<8;