$ perl -le 'print '