use strict;
use warnings;
use Text::CSV;

my @row = ( 'File_1', q{=Hyperlink("c:\test\File_1.doc","Link")} );

my $csv = Text::CSV->new();
{
    local $\ = "\015\012";  # or use the "eol" attribute of csv object
    open( my $csvfh, ">", "out.csv" ) or die $!;
   $csv->print( $csvfh, \@row );
}