while it is more common to see the double-quote used, a single can also be used like this

 
my $csv = Text::CSV->new ({sep_char  => ',',quote_char => "'"  });
[download]

http://search.cpan.org/~ishigaki/Text-CSV-1.91/lib/Text/CSV.pm#quote_char
note i also fixed your sep_char to only have one char
http://search.cpan.org/~ishigaki/Text-CSV-1.91/lib/Text/CSV.pm#sep_char