Change your database assignment line to

my $dbh = DBI->connect($db, $username, $pass);
[download]

And the line with do on it to

$dbh->do($sql);
[download]

You'll also probably want to check the return of both of those statements in case they fail.
HTH

_________
broquaint