$ perl -e 'print <