print {$s->{out}} "test";

##</code><code>##

# because @in = <$s->{in}> won't work

my @in = readline($s->{in});