Select Code to Download

while (readline into $line)
  if $line starts with 'priority'
...
    print $line
  end
end

while (readline into $line)
  if $line starts with 'priority'
...
  end
  print $line
end