for (glob $dirtoread . '*') {
    my @stats = stat;
    # . . .
}