#!C:/strawberry/perl/bin/perl.exe

use strict;

use DBI;
use Text::CSV;
use Win32::OLE;

my $DBFile = "KosJourney.accdb";
my $DBHandle = DBI->connect("dbi:ADO:Provider=Microsoft.ACE.OLEDB.12.0;Data Source=$DBFile;Persist Security Info=False;") or die $DBI::errstr;

.....

open my $FILEHANDLE,$FilePath or die "Failure opening CSV file for reading: " . $!;
while (<$FILEHANDLE>)
{
	chomp;
	next if /Last Name/;
	my ($LastName,$FirstName,$GUID) = split (/\t/,$_);
	$LastName =~ s/"//g;
	$FirstName =~ s/"//g;
	$GUID =~ s/"//g;
	my $FullName = $FirstName . " " . $LastName;
	
	my $InsertUserQuery = "INSERT INTO Users (Username,FullName,FirstName,LastName) VALUES (?,?,?,?);";
	
	&Echo("Executing SQL: " . $InsertUserQuery);
	
	my $InsertUserResult = $DBHandle->prepare($InsertUserQuery);
	$InsertUserResult->execute($GUID,$FullName,$FirstName,$LastName);
}
close $FILEHANDLE;