#!/usr/bin/env perl

use strict;
use warnings;

use Text::CSV::Slurp;

my @aoh = (
    { name => 'Adam', age => 0 },
    { name => 'Bob',  age => 10 },
    { name => 'Cat',  age => 20 }
);

open my $fh, '>', 'output.csv' or die $!;

if( scalar @aoh > 0 ){
    my $csv = Text::CSV::Slurp->create(
        input => \@aoh,
        always_quote => 1,
        quote => "'"
    );
    print $fh $csv;
} else {
    print $fh "''";
}

$fh->close;

exit;