!#perl-w

qx#python -c 'print "A hash of hashes"[::-1]'|awk '{split($0,a,"");n=length(a);while(n!=0){printf "%%s", a[n]>"HoH";n--}}'#