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();

##</code><code>##

my $dbh = DBI->connect('DBI:mysql:gailbord_teachcoll', 'gailbord_admin', 'thotwp2') or die "Unable to connect: $DBI::errstr\n";

my $sql = "INSERT into teach_info (pickup, pmonth, pday, pyear) values ($pickup, $pmonth, $pday, $pyear)";

my $sth = $dbh->prepare($sql);
$sth->execute();