No, I understand. Let me rephrase. It's not working because you are doing the XS equivalent of

PRINT($out, "TEXT");
[download]

when you want to do the XS equivalent of

tied(*$out)->PRINT("TEXT");
[download]