open(X, ">$filename");

##</code><code>##

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