$ perl -e 'printf "%b\n", time'
111111111111111111110100100100
Осталось всего несколько минут до перехода юниксовского времени в 31-й бит.
Update:
perl -e 'while(1) { if($a!=time) { printf "%b\n", $a; $a=time; }}'
111111111111111111111001111110
111111111111111111111001111111
111111111111111111111010000000
111111111111111111111010000001
111111111111111111111010000010
111111111111111111111010000011
[...]
111111111111111111111111111010
111111111111111111111111111011
111111111111111111111111111100
111111111111111111111111111101
111111111111111111111111111110
111111111111111111111111111111
1000000000000000000000000000000
1000000000000000000000000000001
1000000000000000000000000000010
1000000000000000000000000000011
1000000000000000000000000000100
Ураааа!