Select Code to Download

my $secret="(binary garbage here)";
sub checkSecurity;
...
} else {
    die "Insecure condition found, won't tell you the secret!\n";
}

package DBIspy;

...
        die 'BROKEN';
}
1;

> perl -MDBIspy -E 'use DBI; DBI->connect("dbi:SQLite:","user","passwo
+rd")'
DBI
...
BROKEN at DBIspy.pm line 12.

>