use I18N::Collate;

setlocale(LC_COLLATE, $locale);         # uses POSIX::setlocale
$s1 = new I18N::Collate "scalar_data_1";
$s2 = new I18N::Collate "scalar_data_2";
*****
use I18N::Collate;

setlocale(LC_COLLATE, 'C');
$s1 = new I18N::Collate "Hello";
$s2 = new I18N::Collate "Goodbye";
# following line prints "Hello comes before goodbye"
print "$$s2 comes before $$s2" if $s2 le $s1;
*****
< <=>   >=  ==  !=  <=>
lt  le  gt  ge  eq  ne  cmp
*****
locale -a