my @files = 1 .. 1_000;
system "touch $_" for @files;

opendir my $dh, '.'  or  die $!;
my $first = readdir $dh;

print "Sleeping...\n";
sleep 5;
unlink for @files;

my @exists;
while ( my $file = readdir $dh ) {
    push @exists, $file;
}
closedir $dh  or die $!;

print "Count: ", scalar @exists + 1, "\n";
print "$first @exists\n";