Select Code to Download

use text::CSV_XS;

...

# inside the for/while loop
    $csv->print ($fh, [ $usename, $oldvalue, $newvalue ]);