If autocommit is not on by default or turned on when you first connect and get your $dbh you will need to commit as in:

$dbh->commit() unless $dbh->{AutoCommit};
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];