use DBI;
use strict;

my $dbh = DBI->connect('DBI:mysql:gailbord_teachcoll', 'gailbord_admin', 'thotwp2') || die "Could not connect to database: $DBI::errstr";

my $affInfo = $dbh->do ('INSERT into teach_info (pickup, pmonth, pday, pyear) values ($pickup, $pmonth, $pday, $pyear)');

print "$affInfo Row Added\n";

$dbh->disconnect();