Hello,

Maybe it's a Heisenbug? http://en.wikipedia.org/wiki/Heisenbug

You could try this (untested):

BEGIN {
my $log_file = ;
open STDOUT, '>', '/some/dir/logfile' or die "Cannot redirect STDOUT: $!";
open STDERR, ">&STDOUT" or die "Cannot dup STDOUT: $!";
}



John
--
use Perl;
program
fulfillment

There are a whole bunch of different ways, here are a few ideas to
roll your own, but there is the whole set of Log modules on Cpan.

###########################################
#!/usr/bin/perl
use warnings;
use strict;

my $logfilename = "$0-log";
{
use IO::Tee;
open my $log, ">", $logfilename or die "error opening log: $!";

*STDOUT = (
IO::Tee->new( *STDOUT{IO}, $log )
or die "error making tee: $!"
)
}
print "This is both written to stdout and a logfilen";


#####################################
#!/usr/bin/perl

open TEE, "| tee YourLogFileHere";
open STDOUT, ">&TEE";
open STDERR, ">&TEE";

#possible problem the script hangs and wont exit the "tee" command.
#so at end of script

close (STDERR);
close (STDOUT);
close (TEE);


#####################################

#!/usr/bin/perl
my $variable;

# First, save away STDERR
open SAVEERR, ">&STDERR";
close STDERR;
open STDERR, ">", $variable or die "What the hell?n";

# Now print something to STDERR, redirected to $variable
print STDERR "This is a test.n";

# Now close and restore STDERR to original condition.
close STDERR;
open STDERR, ">&SAVEERR";


# Now test to see if $variable actually received the text.
print "Now for the real test.n";
print $variable;
###########################################

#!/usr/bin/perl

use IO::Tee;

$tee = IO::Tee->new($handle1, $handle2);
print $tee "foo", "bar";

###############################################

$tee = IO::Tee->new(*STDOUT, *OUTFILE);
print $tee "Your data here" if 1;

##############################################

#roll your own
open my $fh, ">test.out" or die "Can't open outfile.";
print $_ "Test string.n" for *STDOUT, $fh;
close $fh;
##############################################




--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html

Here yet another one ;)

#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;

{
local *STDOUT;
local *STDERR;
local *FILE;

open FILE, ">log.txt" || die "Cannot write to log file!";
open STDOUT, ">&FILE" || die "Cannot redirect STDOUT";
open STDERR, ">&FILE" || die "Cannot redirect STDERR";

STDOUT->autoflush(1);
STDERR->autoflush(1);

print STDOUT "An"; #to log.txt
print STDERR "Bn"; #to log.txt
}

#after above {}, STDOUT and STDERR
#go back their original condition
print STDOUT "Cn"; #on the console
print STDERR "Dn"; #on the console

R,
Jos.

Oops, I pushed the send button too quickly, that should be:

BEGIN {
open STDOUT, '>', '/some/dir/logfile' or die "Cannot redirect STDOUT: $!";
open STDERR, ">&STDOUT" or die "Cannot dup STDOUT: $!";
}



John
--
use Perl;
program
fulfillment

Hear hear I was going to suggest the same. 'screen' is a great program!