how to connect postgresql database

hi,
>   am new to Perl.
> How to connect postgresql database with perl ? here
>is the Perl code follows:
>  #!/usr/bin/perl
>  use CGI qw(:standard);
>  use DBI;
>  use strict;
>
>  print "Content-type: text/html\n\n";
>  use CGI::Carp qw/fatalsToBrowser/;
>  $query = new CGI;
>  print $query->header;
>
>$dbh = DBI->connect("dbi:Pg:dbname=test", "postgres",
>"", {AutoCommit => 1, Rais
>eError => 1});
>
>if($query->param("submit") eq "save") {
>$sth = $dbh->prepare("SELECT ip_add from firewall
>where $source_add ='10.0.0.10'");
>} else {
> print "error";
> }
>
>if(!defined($sth)) {
>    print "ERROR: Unable to execute database query:
>$DBI::errstr\n";
>    exit;
>}
> $sth->execute;
>
>
>$sth->finish;
>
>print $query->start_html("FIREWALL");
>
>print <<"EOF";
>   
>   
>   print "
FIREWALL
\n";
>   print "IP Adress:";
> print $query->popup_menu(-name=>'IP Adress',
>                        
>-Values=>['10.0.0.1','10.0.0.2','10.0.0.3','10.0.0.4',10.0.0.5,10.0.0.6],
>                            );
>
>   print "Source IP Adress:";
>   print $query->textfield('numeric');
>   print "Destination IP Adress:";
>   print $query->textfield('Dest');
>   print $query->radio_group(-name=>'Disable Enable',
>                       -Values=>['Disable','Enable'],
>                       );
>
>
>   print "
$query->submit('Action','save');
>
>   print
>$query->submit('Action','cancel')
";
>   
>   
>EOF
>    print $query->end_html;
>    $dbh->disconnect;
>    exit(0);
>

=====
Y.SUDHEER RAGHAV+919440521140


		
__________________________________ 
Do you Yahoo!? 
The all-new My Yahoo! - What will yours do?
http://my.yahoo.com