print { $s->{out} } "test";
[download]

That's mentioned at the end of the print documentation.