# because @in = <$s->{in}> won't work my @in = readline($s->{in});