#!/usr/bin/perl 

use warnings;
use strict;
use DBI;

#step1 - create connection object
my $dsn = 'DBI:mysql:khalid';
my  $user = 'adam';
my $password = 'secret';
my $conn = DBI->connect($dsn,$user,$password) || die "Error connecting" . DBI->errstr;
open HAN, "It" || die "No file";
my @newrecords = <HAN>;
foreach (@newrecords) {
	my @col = split;
my $first_name = $col[0];
my $last_name = $col[1];
my $job = $col[2];

#step2 - insert/update/delete queries.

$conn->do("INSERT INTO khalid(first_name,last_name,job)VALUES('$first_name','$last_name','$job')") ||  die "Error preparing query" . $conn->errstr;	
}