Select Code to Download

#!/usr/bin/perl

...
{
   open my $file, '>', $_ or die $!;
}

#!/usr/bin/perl

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

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