select(REPORT1);
$^ = 'report1_top';
select(REPORT2);
$^ = 'report2_top';

local($oldfh) = select(STDERR); $| = 1; select($oldfh);

select((select(STDERR), $| = 1)[$[])
