Select Code to Download

my $sth = $DBH->prepare('
   SELECT DISTINCT AGE 
...
for my $record (@$records){
  printf "%d\n", $record->[0]; # AGE field
}

my $sth = $DBH->prepare('
   SELECT DISTINCT AGE 
   FROM USER');
$sth->execute();