while (my $line= <FILEIN>) {
...