perl -MBB -e1