my $start_date;
my $end_date;

while (print "Enter start date: ",!start_date_ok(<STDIN>));
while (print "Enter end date: ",  !end_date_ok  (<STDIN>));