# This code is provided "as is" with NO WARRANTY expressed or 
# implied. You may use it freely at your own risk.

#!/usr/bin/perl

$date = $ARGV[0];

$year = substr($date, length($date) -2, 2);
if (($year % 4) != 0) {
	if ($date =~ m%(^(0?[13578]|1[02])/([12][0-9]|3[01]|0?[1-9])/(19|20)(\d\d)$)|(^(0?[469]|11)/([12][0-9]|30|0?[1-9])/(19|20)(\d\d)$)|(^(0?2)/(1[0-9]|2[0-8]|0?[1-9])/(19|20)(\d\d)$)%) {
		print "OK!\n";
	}
	else {
		print "$not OK\n";
	}
}
else {
	if ($date =~ m%(^(0?[13578]|1[02])/([12][0-9]|3[01]|0?[1-9])/(19|20)(\d\d)$)|(^(0?[469]|11)/([12][0-9]|30|0?[1-9])/(19|20)(\d\d)$)|(^(0?2)/(1[0-9]|2[0-9]|0?[1-9])/(19|20)(\d\d)$)%) {
		print "OK!\n";
	}
	else {
		print "not OK\n";
	}
}