use Tie::DBI;

my %user_table;
my $t = tie %user_table,'Tie::DBI', {
   db       => "mysql:music_server",
   user     => "root",
   password => "",
   table    => "users",
   key      => "nick",
   CLOBBER  => 1,
};
use POSIX qw(strftime);
my $now_string = strftime "%Y-%m-%d %H:%M:%S", localtime;

$user_table{$nick} = {
     hostmask    => $hostmask,
     level       => $level,
     credits     => $level,
     moderates   => $moderates,
     dateCreated => $now_string,
);

##</code><code>##

mysql> describe users;
+-------------+-------------+------+-----+---------+-------+
| Field       | Type        | Null | Key | Default | Extra |
+-------------+-------------+------+-----+---------+-------+
| nick        | varchar(15) |      | PRI |         |       |
| hostmask    | text        | YES  |     | NULL    |       |
| level       | int(11)     | YES  |     | 100     |       |
| credits     | int(11)     | YES  |     | 0       |       |
| moderates   | int(11)     | YES  |     | 3       |       |
| songsPlayed | int(11)     | YES  |     | 0       |       |
| dateCreated | datetime    | YES  |     | NULL    |       |
+-------------+-------------+------+-----+---------+-------+