while ($file=<HIPORT>)