$ perl -le print~0