use Time::HiRes qw(gettimeofday);

my $t0 = gettimeofday();
"Meine Operationen"
my $t1 = gettimeofday();

my $elapsed = $t1 - $t0;
print "$elapsed Sekunden \n";