#歳以上の生年月日チェック、作ったんやけど、ださすぎる。あなたならどうする？？ sub static_birthday { my $date = shift; my $args = shift; # この年齢以上じゃないと登録できない。 my $over = $args->{over} || 18; return 0 unless &static_date( $d…