Database Perl

use DBI;
$db=DBI->connect('DBI:mysql:sample_db;user=root;password=');
$sth=$db->prepare("SELECT * FROM employee")  or die "Can't prepare sql statement" . DBI->errstr;
$sth->execute();
$sth->dump_results(); 
$sth->finish();
$dbh->disconnect();