Select Code to Download

use strict;
use Data::Dumper;
...
        tr/a-z/A-Z/;
    }
}

use strict;
use Data::Dumper;
...
        uc($_);
    }
}