{
   my $output_string;
   sub DoListCategories {
     $output_string = "";
     ListCategories(@_);
   }
   sub ListCategories {
     #Just as you had it with the change in 1 above
   }
}