in reply to print() on closed filehandle OUT at B.p line 19, <SH> line 1732.

open(OUT, "/tmp/$sh".".sysedge.sh");

[download]

You are opening the file for READ ONLY INPUT and then are try to print out to that filehandle.    You need to either use output or append mode to be able to print out on that filehandle.

  • Comment on Re: print() on closed filehandle OUT at B.p line 19, <SH> line 1732.
  • Download Code

In Section Seekers of Perl Wisdom