Help for this page

Select Code to Download

Select or download this

    #!/usr/software/bin/perl5.8.8

...
    my $dbh = DBI->connect("dbi:SQLite:dbname=$db", "", "", {RaiseErro
+r => 1}) or die $DBI::errstr;
    # doing something here with $dbh...
    $dbh->disconnect;

Select or download this

    #!/usr/software/bin/perl5.8.8

...
    }
    # doing something here with $dbh...
    $dbh->disconnect;