:local mailto "<destination e-mail address>"; 
:local smtp "<SMTP server>";
:local domain "<domain name>";
:local date [/system clock get date];
:local time [/system clock get time];
:local hostname [/system identity get name];
:local freemem ((100 * [/system resource get free-memory]) / [/system resource get total-memory]);
:local cpuload 0;
:for i from=1 to=10 do={
  :set cpuload ($cpuload + [/system resource get cpu-load]);
  :delay 1000ms;
};
:set cpuload ($cpuload / 10);
:if (($freemem <5) || ($cpuload > 95)) do={
/tool e-mail send server=$smtp to="report@tone.cz" subject="$hostname has experienced resources problem" from="$hostname@$domain" body="On $date at $time the amout of free memory was $freemem % and cpu-load was $cpuload %. The box $hostname was reboted due to possible system issue.";
/system reboot
};