#!/usr/local/bin/perl -w
use strict;

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($INFO);

for(1..100_000) {
   DEBUG "waah!";
}