Select Code to Download

#! /usr/bin/perl
use strict;
...
foreach (sort keys %s) {
     print "'$_' ".U($_)." => '".$s{$_}."' ".U($s{$_})."\n";
}