#! c:/perl/bin/perl.exe -slw
use strict;

use Win32;
use Win32::ODBC;

my $DSN = 'ORANGE';
my $DB = new Win32::ODBC($DSN) || die "Error => $!\n";

open (FILE, "$ARGV[0]") ||  die "\n$!\n";
chomp (my @data=<FILE>);
print "\n\nPlease wait......Populating Database\n";
for my $entry (@data)
{
	next if ($entry =~ /^start|^Full/i);
	my @db_values = split (/,/,$entry); 
	#print "$db_values[0]\n";
	$DB->sql("INSERT INTO Files (File_Path, File_Name, Size_Byte, Created, Modified, Accessed, Type) VALUES ('$db_values[0]','$db_values[5]','$db_values[1]','$db_values[2]','$db_values[3]','$db_values[4]','$db_values[6]')");
}
close FILE;
$DB->Close;
print “\n\nCompleted......Please check $DSN database\n\n”;