ヅラッシュ！ by NI-Lab.

#/usr/bin/perl
 
sub to_YYYYMMDD_string {
  my $time = shift;
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
  my $result = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);
  return $result;
}
 
my $a = $ARGV[0];
my $b = &to_YYYYMMDD_string(time());
print "$a\n";
print "$b\n";
if($a eq $b){
  print "OK\n";
}else{
  print "NG\n";
}