#!/usr/bin/perl use DBI use strict; my $driver = "mysql"; my $db = "perl_proj"; my $dsn = "DBI:$driver:database=$db"; my $user = "root"; my $pwd = ""; my $dbh = DBI->connect($dsn, $user, $pwd ) or die $DBI::errstr; my $sth = $dbh->prepare("INSERT INTO users (FIRST_NAME, LAST_NAME, EMAIL, TAG ) values ('john', 'ritchie', 'johnr@test.com', 'Manager')"); $sth->execute() or die $DBI::errstr; $sth->finish();