use Time::HiRes qw(gettimeofday tv_interval);

my $start_time;
BEGIN { $statt_time = [gettimeofday()]; }  # Zeit zu Beginn des Ladens

# erster Befehl nach dem Laden
warn "Script start-up took ".(tv_interval($start_time))." seconds";