perl -e '$dir = `echo ~user`; warn $dir'