Help for this page
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 }