$ perl -e 'print print 0'
01$