Having problems getting data back to STDOUT once I assign it to a file

[Wagner, David --- Senior Programmer Analyst --- CFS]

        I am done processing and I want to place the final output line also on 
the screen. Here is what I have:

    if ( $GlblInfo{audit} ) {
        printf "\n\n*****Should be last line in the audittrail 
file...*****\n\n";
        close(STDOUT);
        close(STDERR);
        open(STDOUT , '>') || die "Unable to open STDOUT: $!";
        if ( $GlblInfo{continues} ) {
            printf "\n\n*EndOfProg*"x7 . "\n\n";
         }else {
            printf "\n\n**Error*"x9 . "\n\n";
         }
     }

        I have looked at perldoc -f open and tried a number of things. The line 
"should be last line" is appearing in my audittrail file, but I never see the 
EndOfProg or Error in the auditrrail or on the screen.

        I am running with AS 5.8.9 build 825 on XP SP2.

        I have tried a number of different things after reading different docs, 
but I must be missing some very simple thing.

        Any ideas would be greatly appreciated.

         Thanks.
 
Wags ;)
David R. Wagner
Senior Programmer Analyst
FedEx Freight Systems
1.719.484.2097 Tel
1.719.484.2419 Fax
1.408.623.5963 Cell
http://fedex.com/us 



--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/