Select Code to Download

#!/usr/bin/perl -w
use strict;
use Net::Whois::ARIN;
...
foreach(@out){
    print "$_\n";
}