如何写一些与mysql简单交互的perl语句?谢谢

eval{$dbh->do("create database web20load;");};
这样似乎就可以了  

:)
eval {$dbh->do("create database web20load;")};

perl 中用eval来表达exception