say 'liste des abbreviations et URL';
while (my ($key, $ val) = each  %url) {
    print "$key: $val\t";
}