#!/usr/bin/perl -Tw
use DBI;
my $serverName = "localhost";
my $serverPort = "3306";
my $serverUser = "root";
my $serverPass = "";
my $serverDb = "ci";
my $serverTabl = "user";

my ($dbh, $sth, @row);
$dbh = DBI->connect("DBI:mysql:database=$serverDb;
        host=$serverName;port=$serverPort",$serverUser,$serverPass);
$sth = $dbh->prepare("
        INSERT INTO users (uid, prefcolor, privilege)
        VALUES ('joe', 'rose', 'normal')
");
$sth->execute;
$sth->finish;