Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

...
    return -1;
  }
}