Select Code to Download

#!/usr/bin/perl -w

...
        print "<br />", $rr->exchange, ' [<b>', $rr->preference, "</b>
+]\n";
    }
}