#!/usr/bin/perl

use strict;
use warnings;

sub openHandle
{
	opendir my $dir,'.' or die "Could not opendir: $!";
	return $dir;
}

my @a;
while (1) {
	push @a,openHandle();
	print "Handles in use: ",0+@a,"\n";
}

##</code><code>##

// previous lines removed
Handles in use: 1015
Handles in use: 1016
Handles in use: 1017
Handles in use: 1018
Handles in use: 1019
Handles in use: 1020
Handles in use: 1021
Could not opendir: Too many open files at handles.pl line 8.

##</code><code>##

// previous lines removed
Handles in use: 27781
Handles in use: 27782
Handles in use: 27783
Handles in use: 27784
Handles in use: 27785
Terminating on signal SIGINT(2)

H:\tmp>