Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    #then actually do something before reprompting
    
}

my $start_date;
my $end_date;

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