PERL - issue with OPEN

view story

http://www.unix.com – Hi, I have a menu script written in PERL which calls some shell scripts and displays the return. I'm having a problem with OPEN. A section of the code is below: Code: `./scriptlist.ksh 1`;       open OUTPUT, "</home/$SCRIPTUSER/output";       {       local $/ = undef;       $_ = <OUTPUT>;       }       ($var) = m/^(CRESTUSER.*\d)$/sm;       print "$var\n\n";       close OUTPUT;       open FILE, ">/home/$SCRIPTUSER (HowTos)