Select Code to Download

open(IN, "<file") or die "failed: $!";

...
  $offsets{$title} = $offset;
  $files{$title} = $file;
}

$title = 'somethng interesting';
$offset = $offsets{$title};
$file = $files{$title};