open(SuitDoc,<STDIN>) || die "Cannot open file";
...
   while ($line = <SuitDoc>) {
      ...