Select Code to Download

use strict;
use warnings;
...
    }
}
print $acc, qq{\n} if defined $acc;

;ddadadwaew
sddjdsoeugfuiegf
...
;ieruherueu
;ierhueryugr
reieruyeruy