Select Code to Download

foreach my $row (0 .. $lastRow)
{
}

my $screen = ' ' x ($rows * $columns);
foreach my $row (0 .. $rows-1)
...
  my $text = join('', @_);
  substr($screen, $y * $columns + $x, length($text), $text);
}