my $errorcount = 0;
my $starttime = gettimeofday;
my @errors;
my %opt;
my ( $confirm, $help, $test_parameter, $where );
GetOptions(
'c' => \$confirm,
sub defnonull {
my $var = shift;
defined $var and $var ne "";
return defined $var && $var ne q{};
}
-