# perl -s