Select Code to Download

bucket: aa      type: spam      2012-07-02      20120702T132446
bucket: aa      type: spam      2012-07-07      20120707T083754
...
Use of uninitialized value in split at ./list_hash.pl line 32.
Use of uninitialized value $dt in pattern match (m//) at ./list_hash.p
+l line 35.
key 2 not defined. Deleting.

#!/usr/bin/perl -w

...
} # end foreach mailhost

sub DBG($) { my $msg = shift; print $msg if ($verbose); }

     1    #!/usr/bin/perl -w
     2    
...
    45    
    46    sub DBG($) { my $msg = shift; print $msg if ($verbose); }
    47