Select Code to Download

#!/usr/bin/perl -w
...
 (@addresses)=$list->sorted();
 print join "\n", @addresses;
}