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