#!/Perl/bin/perl
use Benchmark; # Benschmark
my $t0 = new Benchmark;

# ... ganzer Rest

my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";
exit( 0 );

# ... subs