perl -e 'warn readline'