#!/usr/bin/perl

use warnings;
use strict;

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