foreach my $invalidPackage ( @invalidPackages ) {
	my $compCmd = <<SQL;
ALTER PACKAGE $dbuser.$invalidPackage COMPILE DEBUG BODY
SQL
	print "Executing $compCmd";
	$sth = $dbh->prepare($compCmd) or die $ARGV[0] . 
               "[$compCmd] " . $dbh->errstr;
	$sth->execute();
	while ( my @r = $sth->fetchrow_array ) {
		print ">>>@r";
	}
	$sth->finish || die;
}