[perl #116975] perlfunc require: fix example subroutine