$ perl -MRRDs -e1