Select Code to Download

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

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

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