Select Code to Download

use warnings;
use strict;
...
    }
# Close file    
close $fh;

use Text::CSV_XS qw( csv );
:
...
$sth->execute;

csv (out => "AFS.csv", in => sub { $sth->fetchrow_hashref });