Select Code to Download

#!/usr/bin/perl -w

...
print "\n";
my $now = localtime time;
print "Current Date and Time: $now\n";

    print "Would you like to add another item? - Y or N\n";
    chomp ($continue = <STDIN>);

    $continue = some invalid value;
    while ($continue is not a valid value) {
      print out the prompt;
      chomp ($continue = <STDIN>); # unchanged.
    }