% /usr/bin/perl -de 1