+my $dbh = DBI->connect("dbi:Pg:dbname=zc", "dpavlin", "", { RaiseError => 1 });
+my @columns = split(/\n/, <<__COLUMNS__);
+0x01 PN
+0x03 X_axis_angle
+0x04 Y_axis_angle
+0x0c Sensor_temperature
+0x0d Power_source_voltage
+0x11 Arming_disarming
+0x17 Signal_strength
+0x18 Sensor_operating_mode
+0x19 Alarm_axis
+__COLUMNS__
+
+my $cols = join(',', map { (split(/\t/,$_))[1] } @columns);
+my @insert_data_ids = map { hex( (split(/\t/,$_))[0] ) } @columns ;
+
+my $sql_placeholders = ',?' x ($#columns+1);
+$sql_placeholders =~ s/^,//;
+
+my $sth = $dbh->prepare(qq{insert into zc ($cols) values ($sql_placeholders)});