sub CheckDate {
        my $date = $_;

        print "Date: $date\n";
        return true;
}