##
my $ob = tie (*FH, 'Device::SerialPort', $cfgfile)
|| die "Can't tie: $!\n"; ## TIEHANDLE ##
##
##
@gotits= ;
##
##
$timestamp = uts_to_iso(time());
##
##
my $dtdate=dt('date'); my $dttime=dt('time');
##
##
$q = "insert into weather_data values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)";
my $sth = $dbh->prepare($q);