use Tie::DBI;

tie %db,Tie::DBI,{db            => "mysql:Perlmonks",
                     table      => "Reputation",
                     key        => "nodeid",
                     user       => $def_dbuser,
                     password   => $def_dbpw,
                     CLOBBER    => 3};