#!/usr/bin/perl

use Tie::FileHandle::MultiPlex;

open (REALERR, ">&STDERR");

tie *STDERR, Tie::FileHandle::MultiPlex, *A, *REALERR, *B;

open(A,'>>','testA') or die "testA: $!\n";
open(B,'>>','testB') or die "testB: $!\n";

warn "test message $$";