perl -we "q(di)"
perl -we "q(id)"