Select Code to Download

my $pdf = PDF::API2::Simple->new( 
    header => \&my_header($CategoryName),
...
  my $pdf = shift;
  # do my stuff
}

my $pdf = PDF::API2::Simple->new( 
    header => sub {
...
  my $pdf = shift;
  # do my stuff
}