or download this
if (-e $DSNlasttim) { # Check if file exists
open (LASTTIM,"$DSNlasttim") || die "OPEN INPUT ERROR $DSNlast
+tim: $!\n";
$lasttim = do { local $/; <LASTTIM> };
...
$delayrem = $delay - $currtime + $lastatmt; # Get remaining
+ delay, if any
if ($delayrem > 0) {$too_qik};
}