1 BEGIN { $| = 1; print "1..4\n"; }
4 eval { require Date::Manip; } || print "not "; print "ok ",$i++,"\n";
5 eval { require DBI; } || print "not "; print "ok ",$i++,"\n";
6 eval { require Set::Scalar; } || print "not "; print "ok ",$i++,"\n";
7 eval { require DBD::mysql; } || print "not "; print "ok ",$i++,"\n";