# perl -w p.pl