Select Code to Download

using prepared:
INSERT into monica.event (msg, source, situation, version, date, hostn
+ame, last_uid, sub_origin, component, guid, severity, adapter_host) v
+alues (????????????)
...
using direct:
INSERT INTO monica.event (msg, source, situation, version, date, hostn
+ame, last_uid, sub_origin, component, guid, severity, adapter_host) V
+ALUES ('this is a test event, ignore', 'Testing', 'START', '0.1', '20
+06-11-28 19:13:18', 'test', '', 'SelectDocument', 'IT_SERVICE', '6233
+75574', 'CRITICAL', 'this_box')

#!/usr/bin/perl
use strict;
...
        or die "can not execute sql: $DBI::errstr\n";

    print STDERR $/;