use Benchmark qw(:all);
my $t0 = new Benchmark;
print "xy brauchte :",    Benchmark::timestr( Benchmark::timediff( new Benchmark, $t0 ) ), "\n";