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

my $dbh = DBI->connect('dbi:DBM:')
    or die "Can't connect to $DBI::errstr";

my $sql_create = 'CREATE TABLE users ( username TEXT, phone TEXT )';
$dbh->do($sql_create);

$dbh->do(
    "INSERT INTO users VALUES ('user1', '123-321123')"
);

$dbh->disconnect;