Select Code to Download

use warnings;
use strict;

...
$ppi_doc->save($outfile);

print "$_\n" for @subs;

use warnings;
use strict;
...

    $des->inject(line_num => $first_line, code => \@code);
}