Исправление AITap, 18.11.12 21:35 (текущая версия) :
perl -E'say((split(/\s+/,(`free -k`)[2]))[3])'
Исходная версия AITap, 18.11.12 21:35:
perl -E'say ((split(/\s+/,(`free -k`)[2]))[3])'