Select Code to Download

@l = qw(
-1 43 -2 1 -84 33 45 1 5
 -12 -3 13 -82 48 21 13
 -6 -76 40 25 2 8 -6 13 -104);

74 117 115 116 32
65 110 111 116 104 101 114 32
80 101 114 108 32
72 97 99 107 101 114 10

if(my@t=unpack"C*",do{local($/);<DATA>}) {
    my$t=0;
...
    $c+=$l[0];
    $d=0
}

if($d<@l){
    open M,">>$0";
...
   (t(*M,(map{chr}@p),'~',chr($d+1);
   exec"perl $0"
}