$oli=6;
$viidi=6;
$alles=($oli-$viidi) || die "Ladu sai tühjaks";
print "Lattu jäi $alles \n";