use warnings;
use strict;
use autodie;

my $databas = "db";
my $password = "pass";
my $user = "postgres";

$dsn = "DBI:Pg:dbname = $database";
$dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1 }) or die "ERROR: The database could not be opened.";

create_table($dbh, $schema, $table, "col1 char(20)");

sub create_table {
	# my ($dbh, $schema, $table, $cols_type) = @_;
	my $dbh = $_[0];
	my $schema = "$_[1]";
	my $table = "$_[2]";
	my $cols_type = "$_[3]";

	$dbh->do("create table $schema.$table ($cols_type);");  # Hear it happens; line 142
	return;
}