Select Code to Download

    open (DAT, "$file") || die "$!\n";
    while (<DAT>) {
...
        $cc++;
    }
    close(DAT);

while (<DATA>) {
    for my $char ( split // ) {
...
        print ord( $char ), " KEY\n";
    }
}