my $fh = $s->{in};
my $line = <$fh>;