#!/Perl/bin/perl

use strict;

my $dbh = DBI->connect(XXXX);

runSomeQueries();

$dbh->disconnect();

sub runSomeQueries
{
   my $query = "select * from table";
   my $sth = $dbh->prepare($query);
   $sth->execute();

}