#!perl -w
use strict;
use DBI;
my $DS="dbi:mysql:QuizTaker";
my $User="tstanley";
my $File="A_Plus_Core.psv";

open(FH,"$File")||die"Can't open $File: $!\n";
my @Array=<FH>;
close FH;

my $DBH=DBI->connect($DS,$User)||die"Can't connect: $DBI::errstr\n";
my $AnswerE="NULL";

foreach my $element(@Array){
  my($TN,$Question,$AnswerA,$AnswerB,$AnswerC,$AnswerD,$Correct)=split /\|/,$element;
  chomp($Correct);
  my $STH=$DBH->prepare_cached(<<SQL);
  INSERT INTO Questions values(?,?,?,?,?,?,?,?)
SQL

  $STH->execute($TN,$Question,$AnswerA,$AnswerB,$AnswerC,$AnswerD,$AnswerE,$Correct);
}

$DBH->disconnect;