my $in = <STDIN>;