Select Code to Download

#!/usr/bin/perl -w
package PLCFuncs;
...
    print "Totals for $kind\n";
    print Generic_Funcs::calculate_totals($kind), "\n"
};

sub get_and_print_totals {
    my ($callback) = @_;
...

get_and_print_totals( sub { return "hello total world" });
get_and_print_totals( sub { return 42+10 });