open (ORGIDATA, ">../states/orig$$") or die "Couldn't open! $!";
print ORIGDATA "pre-for, pre-if";
[download]

Note that you are opening ORGIDATA and writing to ORIGDATA. You've transposed the GI. So you're opening ok, then writing to a non-existant handle