my $log_filehandle;

 open( $log_filehandle, '>>', $log_filename ) 
or die("Can't open $log_filename for append: $!");
 my $tee= IO::Tee->new( $log_filehandle, \*STDOUT );
  my $tee2= IO::Tee->new( $log_filehandle, \*STDERR );
 ##*STDERR = *$tee{IO};  --Adding or removing gives same output
 select $tee;

-------my complete program code below-----------