while(my $l=<IN>){
}