1*b39c5158Smillertour($ri1, $rf1, $rfe1); 2*b39c5158SmillertBEGIN { $ri1 = $^H; $rf1 = $^H{foo}; $rfe1 = exists($^H{foo}); } 3*b39c5158Smillert 4*b39c5158Smillert1; 5