# Verbindung zur Datenbank herstellen
my $dbh = DBI->connect(blabla,nimm,mal,dein,passwort,raus);

# Methoden aufrufen, die irgend etwas mit der Datenbank machen.
do_something($dbh);

# jetzt noch was mit Rückgabewert:
my $rv = do_something_else($dbh);
print $rv;

=head1 METHODS

Deine Methoden hier.


=head2 do_someting

Beschreibung, was du machst....

=cut

sub do_someting {
    my $dbh = shift;

   my $sth = $dbp->prepare(dein statement) or die "fehler...";
   my $rv = $sth->...... usw.

} # /do_something



=head2 do_someting_else

Beschreibung, was du machst....

=cut

sub do_someting_else {
    my $dbh = shift;

   my $sth = $dbp->prepare(dein statement) or die "fehler...";
   my $rv = $sth->...... usw.

    return "ergebnis";
} # /do_something_else