#!/usr/bin/perl
use strict;
use warnings;

my $time_first=time();

sleep(120);# zwei Minuten warten

my $time_later=time();

my $time_diff=$time_later-$time_first;
$time_diff /= 60; # timestamps sind in Sekunden.

print "Program schlief von ".localtime($time_fist)." bis ".localtime($time_later).", also $ime_diff Minuten\n";