Select Code to Download

$ob->read_char_time(5);            # avg time between read char
$ob->read_const_time(500);         # timeout after 500 milliseconds = 
+0.5 seconds

my $ob = tie (*FH, 'Device::SerialPort', $cfgfile)
       || die "Can't tie: $!\n";             ## TIEHANDLE ##

    @gotits=<FH> ;

$timestamp = uts_to_iso(time());

my $dtdate=dt('date'); my $dttime=dt('time');

$q = "insert into weather_data values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?
+, ?, ?, ?, ?, ?, ?)";
my $sth = $dbh->prepare($q);