すんません。雑に書いてしまいまひた・・・
mkdir $dirname, 0777;
open WFILE, ">$dirname/$filename";
でうまくいきました。。。。お二人ともビンゴです。