Select Code to Download

perl -E '
use strict;
...
  say "KEY:  $key";
}
'

DATA: the data
KEY:  key
DATA: more data
KEY:  another key