#!/usr/bin/perl

use strict;
use warnings;

use BSD::Resource;

my $max = getrlimit( RLIMIT_NOFILE );
print "$max\n";