open my $ff, ">newfile" or die "open failed: $!\n";