#Establish the connection to the database.
my $dbh = DBI->connect( 'dbi:Pg:database=test','test','1234',{RaiseErr
+or => 1,AutoCommit => 0})
    || die "Database connection not made: $DBI::errstr";
#It get the port number and IP address from the data base.
my $sql = qq{ SELECT port,ipaddr,log_file FROM details where name='$na
+me'};
my $sth = $dbh->prepare( $sql );
$sth->execute();
#bind_columns - It stored the port number and IP address to variable.
my( $port, $ipaddr,$log_file );
$sth->bind_columns(\$port, \$ipaddr,\$log_file);
#It fetch the values from table
$sth->fetch();
$sth->finish();
#Dis-connect the database,if we miss it tells warnings, that destroy h
+ad been
#called with out disconnect.
$dbh->disconnect();
[download]