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