I don't use Windows, but "I'm Feeling Lucky" should work for you.

#!/usr/bin/perl

use strict;
use warnings;
use Pod::Usage;
use Getopt::Std;
use Spreadsheet::Read;
use Spreadsheet::WriteExcel;
use Text::CSV::Separator;

my $ref = ReadData ("test.csv");

my $separator = get_separator(
    path    => '/tmp',
    lucky   => 1,
    exclude => [',', ':', '|']
);
[download]