use CGI;
    use DBI;

    my $test = 'testこんにちはtest';

    print "Content-type: text/plain; charset=utf8\n\n";

    my $dbproc = DBI->connect("DBI:ODBC:*********","*******", "*****", { PrintError => 0, RaiseError => 1, ChopBlanks => 1 } ) || print "unable to insert record $DBI::errstr";

    my $insQry = "exec ins_result N'".$test;."'";
    print "insQry: $insQry\n\n";

    my $sth = $dbproc->prepare($insQry); 
    $sth->execute;
    
    $dbproc->disconnect || print "unable to insert record $DBI::errstr";