p4pr.perl #14