#!/usr/bin/perl
use warnings; use strict;
$|=1;
my @start = times;  # genauer als time
for (my $i=0; $i<=5; $i++) {  # irgendwas was Zeit kostet
        print ".";
        sleep 1;
}
print "\n";
my @end = times;
my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end;
print "Dauer insgesamt ist @diffs";