sub case_tolerant {
    my $t1 = (stat "/tmp")[1];
    my $t2 = (stat "/TMP")[1];
    (defined($t2) and $t2 == $t1);
}