# anonymous function call
my $roll = do_stat( "3d6", sub { int($_[0]/2)-5; } );

# Named function call
sub modify { int($_[0]/2)-5; }
my $roll2 = do_stat( "3d6, \&modify );