sub get_and_print_totals {
    my ($callback) = @_;
    my $res = $callback->();
    print "The total is >$res<\n";
};

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