#!/usr/bin/perl

use warnings;
use strict;

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

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

my $tempo = time;
unlink 1..100000;
print time - $tempo . "\n";

##</code><code>##

leonardo@bianconiglio:~/testfile$ ./crfile.pl
leonardo@bianconiglio:~/testfile$ ./rmfile.pl
12