#!/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;

##</code><code>##

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

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

my $sql = "SELECT username, phone FROM users";

my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";

$sth->execute();

while ( my $rec = $sth->fetchrow_hashref('NAME_lc') ) {
    print $rec->{username}, ' : ', $rec->{phone}, "\n";
}

$dbh->disconnect;