...
  while( my $img = <$fh> ) {       # read one record
     # [update $fh => $ih]
     open my $ih, '>', ++$num .'.tiff' or die "can't dump image! $!";
     print $ih $img
  }
  ...