perl -e '$a=5;printf "%p\n", $a'