[Примерен код]

Примерен код

open(ALERT, $file); my @line = <ALERT>;

towa ti prochita faila s ime $file i imash pyrwiq red w $line[0]
tam ti e chisloto koeto ti e ot posledniq alert

Примерен код

if(int($line[0] * 10) <= int($temp * 10 - 5)) { ... prawish alert }

prowerqwa dali prochetenoto chislo e po-golqma s 0.5

Примерен код

open(ALERT, "> $file"); print <ALERT> $temp; close(ALERT);

towa ti zapiswa wyw faila promenliwata $temp

sglobi teq neshta i si gotow.. '>