Select Code to Download

    my (@title) = split(/\n/,$output);

    my ($title, $data) = split /\n/, $output, 2;

    ...
    print ">".$title."\n".$data."\n";

    print ">$output\n";