#!/usr/bin/perl

local($oldhandle) = select(BURBLE);
$^ = "BURBLETOP";
$~ = "BURBLE";
select($oldhandle);

select((select(BURBLE), $^ = "BURBLETOP", $~ = "BURBLE")[0]);
