You could query for this info too.

my $sql = 'SELECT datname FROM pg_database';
my @databases
    = map { $_->[0] } @{ $dbh->selectall_arrayref( $sql ) };
[download]

That query works with my PostgreSQL 8.3.3, but I haven't tried the Perl code.