BEGIN {
    use vars qw( $t0 );
    use Time::HiRes qw( gettimeofday tv_interval );

    # Test der Geschwindigkeit der Ausgabe
    $t0 = [ gettimeofday ];
}