use DBI;
my $dbh=DBI->connect("DBI:mysql:host=localhost;user=root;password=;database=sample_db");
my $sth=$dbh->prepare("INSERT INTO employee(name)VALUES(?)");
my $name="Tom"; # set values here
$sth->execute($name);
$sth=$dbh->prepare("SELECT * FROM employee");
$sth->execute();
while(my @val = $sth->fetchrow_array()){
print "name=$val[0]\n";
}
$sth->finish();
$dbh->disconnect();
|