Select Code to Download

for(;;){
        my $result=$PortObj->input;
...
                my $clsth=&db_query($query);
        }
}

bash-2.05b# echo "foo" >> /dev/ttyS0
bash-2.05b# echo "foo" >> /dev/ttyS0
bash-2.05b# echo "foo" >> /dev/ttyS0

root@alexis:/export/serial/# stty -a < /dev/ttyS0
speed 9600 baud; rows 0; columns 0; line = 0;
...
-ignbrk -brkint -ignpar -parmrk -inpck -istrip -inlcr -igncr -icrnl -i
+xon -ixoff -iuclc -ixany -imaxbel
-opost -olcuc -ocrnl -onlcr -onocr -onlret -ofill -ofdel nl0 cr0 tab0 
+bs0 vt0 ff0
-isig -icanon -iexten -echo -echoe -echok -echonl -noflsh -xcase -tost
+op -echoprt -echoctl -echoke