Select Code to Download

#!/usr/bin/perl -l --
use strict;
...

print "END.";

ccn@asus:~/tmp$ perl sy.pl
Let's go!
...
Segmentation fault
ccn@asus:~/tmp$

    dbd_preparse parameter :p1 ()
    dbd_preparse scanned 1 distinct placeholders
...
    syb_st_prepare: ct_dynamic(CS_DESCRIBE_INPUT) for DBD1
    syb_st_prepare: ct_results(CS_DESCRIBE_INPUT) for DBD1 - restype 4
+051
Segmentation fault