while(1) { my $input=<STDIN>}