seek (OUT,2,1);
          read (OUT, my $num,4);