Select Code to Download

my (%r) = map { $_ => $f{$_} } $left .. $right;

#!/usr/bin/perl

...
  }
  printlist $Input, $Input + $Pagelen - 1;
}