Select Code to Download

use Devel::Peek;

...
  <STDIN>;
  push @a, shift @a;
}

use strict;
use IPC::Open3;
...
  my $off = /offset=(\d+)/ ? $1 : 0;
  printf "Iteration%8d:   Offset%6d\n", $i, $off;
}