Select Code to Download

while (<>) {
  my ($path, $start, $end, $delay) = split;  # or however you get them
...
    DELAY => $delay,
  };
}