Select Code to Download

use vars qw(@some $vars %in_here);
# or you can do
my %variable;
# or even
local $some_var;

#!/usr/bin/perl -w

...
   print OUT $_->string . "\n" for @$rrset;
   close(OUT);
}