use strict;
use warnings;
$|=1;
open(F, '+< temp');
print F "11111111111111111111111111111111\n";
for (0..31){
  seek(F, $_, 0);
  print F '0';
  sleep(1);
}
close(F);

##</code><code>##

use strict;
use warnings;
$|=1;
open(STDOUT, '+<');
print STDOUT "11111111111111111111111111111111\n";
for (0..31){
  seek(STDOUT, $_, 0);
  print STDOUT '0';
  sleep(1);
}
close(STDOUT);