Новый членомер на Perl

geladil@suiseiseki ~ $ ./chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Ваш член черезчур длинный и в терминал не влезет, извините.

} else {
+    print "Длина: $chlen_length\n";
    die "Ваш член черезчур длинный и в терминал не влезет, извините.\n";
}

[21:31:16][alex][~/Developing/C/Leopard]: perl ~/Developing/Perl/Mer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> Y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
df: «/root/.gvfs»: Отказано в доступе
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Ваш член черезчур длинный и в терминал не влезет, извините.

[23:33:08][alex][~]: uptime
 23:33:09 up 44 days, 22:04,  4 users,  load average: 0.92, 0.68, 0.46

Длина: 23553 сантиметров.

*** Вердикт доктора (0 сантиметров):

[~]$ uptime | awk '{print $10+$11*0.5+$12*0.1}'
0
[~]$ uptime
 22:38:59 up 19 days, 17:25, 21 users,  load average: 0.87, 0.51, 0.42

[23:42:04][alex][~]: perl ~/Загрузки/zdo-chlenomer-6279fe2/chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> Y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
df: «/root/.gvfs»: Отказано в доступе
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Длина: 193650 сантиметров.
Ваш член чересчур длинный и в терминал не влезет, извините.

Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Длина: 109501 сантиметров.
Ваш член чересчур длинный и в терминал не влезет, извините.

[~]$ export LC_NUMERIC=C
[~]$ uptime | awk '{print $10+$11*0.5+$12*0.1}'
0.602

$ ./chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> N^M^M^M^M^M^M^M

39c39
< $uptime = $1 if (`uptime` =~ /(\d+)\sday/) or $uptime = 0;
---
> $uptime = $1 if (`uptime` =~ /(\d+)\sdays/) or $uptime = 0;

Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
'uptime' is not recognized as an internal or external command,
operable program or batch file.
Здесь нет 'uptime'. Это что, Шиндовс?