Stringvergleiche sind Mist

[Pragma]

IMHO wäre folgendes sinnig:

use Date::Calc qw(check_date);
my $tag = '35';
my $monat = '13';
my $jahr = '1960';
if (check_date($jahr, $monat, $tag)) {
    print "supi!\n";
}
else {
    print "kaputt!\n";
}