$ perl -le 'print print'

1