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

    $t0 = [ gettimeofday() ];    # Start des Geschwindigkeitstests

    use FindBin;                 # Startverzeichnis des Skripts ermitteln
    use vars qw( $skriptdir );
    $skriptdir = $FindBin::Bin;
}
my $datadir = $skriptdir;       # Verzeichnis mit Konfiguration, Templates ...

use lib "../$skriptdir/lib";    # lokale Module einbinden
...

my $consumedtime = tv_interval ( $t0, [gettimeofday]);