my $stop = <STDIN>;