$|=1;
print "Choose a date and enter it on the command line: ";
my $user_response;
until ($user_response = <STDIN>){};
# do something with $user_response