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

##</code><code>##

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


##</code><code>##

	@gotits=<FH> ; 

##</code><code>##

$timestamp = uts_to_iso(time());

##</code><code>##

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

##</code><code>##

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