my ($conf) = new Config::General(
    -ConfigFile     => 'somefile.conf',
    -ExtendedAccess => 1
 );
     
    my ($databaseUser)=$conf->value("user");
    my ($databaseName) = $conf->value("name");
    my ($databasePw) = $conf->value("pass");
    
# Declare local variables
        
    my ($dbh);    
    my ($stmt, $sth);
    my (@deadlinetyp, @deadline);
    my  $i = 0;
    
     <!--#exec cgi="/cgi-bin/exist_deadline.cgi" -->
    
    while ($deadlinetyp[$i]) {
        print $deadlinetyp[$i]." <b>".$deadline[$i]."</b><br>";
    $i++;
    }
[download]

print header;

my ($conf) = new Config::General(
    -ConfigFile     => 'somefile.conf',
    -ExtendedAccess => 1
 );
     
    my ($databaseUser)=$conf->value("user");
    my ($databaseName) = $conf->value("name");
    my ($databasePw) = $conf->value("pass");
    
# Declare local variables
        
    my $dbh;    
    my ($stmt, $sth);
    my @aRow;
    my $j=0;
    
    $dbh = DBI->connect($databaseName, $databaseUser, 
    $databasePw) || die "Connect failed: $DBI::errstr\n";

#Get available deadline details 
    $stmt = "SELECT dead_typ, dead_line FROM deadlines";

 #Prepare and execute the SQL query
    $sth = $dbh->prepare($stmt) || die "prepare: $stmt: $DBI::errstr";
    $sth->execute() || die "execute: $stmt: $DBI::errstr";
        
    while (@aRow = $sth->fetchrow()){
        $deadlinetyp[$j] = @aRow[0]; 
        $deadline[$j] = @aRow[1];
        $j++;
    }    

# Clean up the record set and the database connection    
    $sth->finish();
    $dbh->disconnect();
[download]