#!/usr/bin/perl -w

use strict;
use DBI;
use dbmodule;
END {DBModule_Close}

## do various things with the db specific to this
## script, such as:
my $sth = $dbh->prepare("SELECT Foo FROM bar WHERE Foo = 'baz'");
$sth->execute;

## do various other things, which get done in lots of
## other places too, using subroutines in dbmodule:
Write_Bar;