C:\test>perl -mstrict -wE" open $f{w},'