use strict; use warnings; sub DateIsInRange ($) { return 1; } 1;