$dbh = DBI->connect("DBI:Pg:dbname=dbname;host=hostname","username","password",{AutoCommit => 1}) || warn $DBI::errstr; $sth = $dbh->prepare("SELECT * FROM テーブル名"); $sth->execute(); for ($i = 0; $i < $sth->{NUM_OF_FIELDS} ; $i++){ print $sth->{NAME}->[$i] . "\n"; } $sth->finish(); $dbh->disconnect;