Lines 152-161
my $help = 0;
Link Here
|
152 |
my $man = 0; |
152 |
my $man = 0; |
153 |
my $verbose = 0; |
153 |
my $verbose = 0; |
154 |
my $doit = 0; |
154 |
my $doit = 0; |
155 |
my $au; |
155 |
my $ageunder; |
156 |
my $ao; |
156 |
my $ageover; |
157 |
my $min_dob; |
|
|
158 |
my $max_dob; |
159 |
my $remove_guarantors = 0; |
157 |
my $remove_guarantors = 0; |
160 |
my $fine_min; |
158 |
my $fine_min; |
161 |
my $fine_max; |
159 |
my $fine_max; |
Lines 186-192
pod2usage(1) if $help;
Link Here
|
186 |
pod2usage( -verbose => 2 ) if $man; |
184 |
pod2usage( -verbose => 2 ) if $man; |
187 |
|
185 |
|
188 |
warn "v $verbose c $doit f $fromcat t $tocat"; |
186 |
warn "v $verbose c $doit f $fromcat t $tocat"; |
189 |
warn Data::Dumper::Dumper(%fields); |
|
|
190 |
exit; |
187 |
exit; |
191 |
|
188 |
|
192 |
if ( not $fromcat && $tocat ) { #make sure we've specified the info we need. |
189 |
if ( not $fromcat && $tocat ) { #make sure we've specified the info we need. |
193 |
- |
|
|