#Get system language id to know German/US format of excels
Win32::API->Import('kernel32.dll', 'long GetSystemDefaultLangID()') or
+ die "Can't import GetSystemDefaultLangID: $^E\n";
$langid = GetSystemDefaultLangID() & 0xFFFF or die "ERROR: LANGID Retu
+rned <undef>\n"; # Mask out the garbage in high-order bytes
[download]

Nice idea, but it is not going to work reliably. Quoting the documentation of Text::CSV_XS (by Tux):

The import/export from Microsoft Excel is a risky task, according to the documentation in Text::CSV::Separator. Microsoft uses the system's list separator defined in the regional settings, which happens to be a semicolon for Dutch, German and Spanish (and probably some others as well). For the English locale, the default is a comma. In Windows however, the user is free to choose a predefined locale, and then change every individual setting in it, so checking the locale is no solution.

Alexander