Select Code to Download

while ($line = <>) {
  my ($k, $v) = split /\s*=\s*/, $line, 2;
  $values{$k} = $v;
}