Select Code to Download

use DBI;
my $database = 'databasename';
my $dbuser = 'username';
my $usrpsswd = 'password';
my $dbtable = 'tablename';

my $dbconnection = DBI->connect("dbi:Pg:dbname=$database", $dbuser, $u
+srpsswd);

my $query = $dbconnection->prepare(<<End_SQL);
SELECT something1,something2 FROM $dbtable
End_SQL

$query->execute();

while (($something1,$something2) = $query->fetchrow_array() )    {
     do your stuff here
     }
# and then disconnect
$dbconnection->disconnect();