create_table($dbh, $table, "record_date char(20)");

sub create_table {
	use DBI;

	# Variables
	my $sth;
		# Database handle
		my $dbh = "$_[0]";

		# Table name and optionally schema name (schema.table)
		my $table = "$_[1]";

		# Columns and their type
		my $cols_type = "$_[2]";
	# } else {
	# 	die RED, "ERROR: You have to supply database handle, table name, the columns list with their type and if you to disconnect the database connection.\n       Stopped$!";
	# }

	# Create table
	$sth = $dbh->prepare("create table $table ($cols_type);");
	$sth->execute();
	print "INFO: The table has been created successfully.\n";

	return;
}