http://www.perlmonks.org?node_id=34869


in reply to From the good book

would this work out better as undef $life if ($last_programmed > (time-3*24*60) );