#!/usr/bin/perl
use Encode qw( encode decode );
my $unicode_name_CURRENCY_SIGN = chr(0xa4);
print "In iso-8859-1: <", encode('iso-8859-1',$unicode_name_CURRENCY_SIGN),">\n";
print "In iso-8859-15: <", encode('iso-8859-15',$unicode_name_CURRENCY_SIGN),">\n";
print "In windows-1252: <", encode('cp1252',$unicode_name_CURRENCY_SIGN),">\n";
print "In utf-8: <", encode('utf-8-strict',$unicode_name_CURRENCY_SIGN),">\n";