#!/usr/bin/perl

use warnings;
use strict;

for (1..100000)
{
   open my $file, '>', $_ or die $!;
}