Finally, from a stylistic point of view, you're calling main and then declaring it a line later .. you can just skip both of those steps. Here's how I would re-format your code..

use strict;
use warnings;

use Text::CSV_XS;

{
    my @row1 = ("aaa","fff","sss" );
    my @row2 = ("bbb","fff","sss");

    # should set binary att
    my $csv = Text::CSV_XS->new ( { binary => 1 } )
      or die "Cannot use CSV: ".Text::CSV->error_diag ();

    open my $fh, ">:encoding(utf8)", "new.csv"
      or die "Failed to open new.csv for writing: $!";

    $csv->print ($fh, \@row1);
    $csv->print ($fh, \@row2);  
    close $fh or die "Failed to close new.csv: $!";

    print " finished \n";
}
[download]

• I've added the use of strict and warnings -- the Perl compiler should be happy with your code;
• I'm declaring the variables at the point at which they're used, rather than at the top of the program;
• I've expanded the error messages to be more informative; your version would show the same error for both open and close errors;
• I've spaced things out to make the code more readable -- I'm a fan of blank lines to separate chunks of code;

You could get more cleanup by using perltidy -- I'm a fan of this utility.