#!/usr/local/bin/perl -w
#
# This program demonstrate Locale::Hebrew v1.03 support for UNICODE
# (use Perl 5.8 and above)
# And non Unicode text (tested successfully on 5.6.1)
# (C) RAZ Information Systems LTD 2004. http://www.raz.co.il/
# You may use this program under the same terms you use PERL.
########################################################

use Locale::Hebrew 1.03;
use locale;

if ($ENV{LANG} =~ /UTF-8/) { #Unicode
          eval ('
         use 5.008;
         use encoding utf8;
         my $msg= "\x{5e9}\x{5dc}\x{5d5}\x{5dd}\x20\x31\x32\x33"; 
	 print "Original   utf8: ",$msg, "\n";
         my    $new_msg = hebrewflip($msg);
         print "Result     utf8: ","$new_msg", "\n";
          ');
  } else { #Non Unicode
          eval ('
          my $msg = "\xf9\xec\xe5\xed\x20\x34\x35\x36";
          print "Original 8859-8: ","$msg", "\n";
          my    $old_msg = hebrewflip($msg);
          print "Result   8859-9: ","$old_msg", "\n";
          ');
}
print $@ if $@;