sub CheckDate {
        my $date = shift @_;

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