perl -e "open(X, '>'.shift);" SYSTEM.DA0