#!/usr/bin/perl

use strict;
use warnings;

#demonstrate the use of the imported subroutine

require "validateDate.pl";

while (1) { #so we can test
    print "? ";     #so he knows that we are waiting
    my $y = <<>>; #get an input we need to test
    if ($y !~ /\d/) {last} #use a value with no digits to exit
    print $y = validateDate($y)?"Validated as $y":"Invalid Date" , "\n";
}

print "All Done\n";
exit(0);