$dbname = 'phonedb'; $dbmain = 'template1'; $dbuser = ''; $dbpass = ''; use DBI; DBI->trace(2); ##### create database $dbh = DBI->connect("dbi:Pg:dbname=$dbmain", $dbuser, $dbpass, {PrintError => 0}) or die $DBI::errstr; $dbh->do("DROP DATABASE $dbname") and print "database $dbname has been dropped\n" or print "database $dbname has not been dropped\n"; $dbh->do("CREATE DATABASE $dbname") and print "database $dbname has been created\n" or print "database $dbname has not been created\n";