use DBI;

$user = "root";
$password = "rinrs123";
$hostnm = "localhost";
$port = "5432";

my $dbh = DBI->connect("dbi:Pg:dbname=postgres;host=$hostnm;port=$port",$user,$password);
      
my @databases =  DBI->data_sources('Pg');

print "@databases";