$ perl -le 'print 0'
0
$ perl -le 'print print 0'
0
1
$ perl -le 'print print print 0'
0
1
1
$ perl -le 'print print print print 0'
0
1
1
1