use DBI;
use strict;

my $driver = "mysql"; 
my $database = "TESTDB";
my $dsn = "DBI:$driver:database=$database";
my $userid = "root";
my $password = "1234";

my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;

my $query = 'INSERT INTO student (StudentId,Name,Dept,address,city) VALUES (?,?,?,?,?)';
my $sth = $dbh->prepare($query) or die "Prepare failed: " . $dbh->errstr();

open my $fh, "<", "text.txt" or die $!;
<$fh>;  #skip header

while (<$fh>)
{
    chomp;
    my @vals = split; 
    	
    $sth->execute(@vals);
}
close $fh;