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,
);