perl -e '$v=qx/ls/;open $f,">","./file";print $f $v;'