...but make it run spotlessly under warnings.
I think all you need to do is initialize these two variables:

  my $current_category     = '';
  my $last_category        = '';
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.