use DBI;
use strict;

my $dbh = DBI->connect(
    'DBI:mysql:gailbord_teachcoll',
    'gailbord_admin',
    'thotwp2',
    { RaiseError => 1 }
);
my $sth = $dbh->prepare("INSERT into teach_info values(?,?,?,?)");
$sth->execute($pickup, $pmonth, $pday, $pyear);