#!/usr/bin/perl -w
use strict;
use DBI;

# Connect to the database
my $dbh = DBI->connect('DBI:Pg:dbname=shop1', '', '')
    or die "Couldn't open database: '$DBI::errstr'; <br>stopped";

$dbh->do("CREATE TABLE users (uid INT, login CHAR(8))");

$dbh->disconnect;