#!/usr/bin/perl

use strict;
use warnings;

mkdir "gtest" or die "screaming";
for (1..40000) {
    open my $f,">","gtest/$_" or die "gnashing";
    close $f or die "howling";
}


my $c=0;
while (my $r=glob("gtest/*")) {
    $c++;
    if ($c == 1) {
        for (1..40000) {
            unlink "gtest/$_" or die "wailing"
        }
    }
}

print "$c\n";
rmdir "gtest" or die "exhausted";