#!/usr/bin/perl -w $ttyst = "stty sane 9600 parenb cs8 -crtscts cstopb --file=/dev/ttyS0"; # test the tube digits on start up... # this is on OpenSUSE so it uses /dev/ttyS0 open (TUBE, "+; close HTML; chomp $c; if ($oc eq $c) { $ctr += 2; if ($ctr == 20) { open (TUBE, "+