open my($fh), '>', $file or die "can't open '>', $file : $! ";