#!C:\Perl\bin\perl.exe
use strict;
use warnings;
use DBI;
my $session_id = 723;
print $session_id . "\n";
my $employeename='Anvi';
print("Employee name: $employeename\n");
my $dbh = DBI->connect("DBI:ODBC:DSN=databasename;uid=myusername;pwd=mypassword") or die $DBI::errstr;
my $sth=$dbh->prepare("INSERT INTO employee_details (session_id,Name) VALUES (?,?)");
$sth->execute;
$dbh->disconnect;
print "Done\n";