> perl -e ' $vv='a'; $var='vv'; eval "print \$$var;" '
a