Add a die or dienice to

  open (CASEFILE, ">$whichfile");
[download]

and try again... ah, and use strict; use warnings; ;-)

Really, you should check the return value for every open and close.

  # better:
  open CASEFILE, '>', $whichfile or die "Can't write '$whichfile': $!\
+n";
[download]

Does the perl script run under your user-id?

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}