$ perl -le 'print $|=-1'
1