#!/usr/bin/perl
use strict;
use warnings;

use HTML::Entities;

print "Content-type: text/html\n\n";

my $str = "Fred's shoe";

_decode_entities($str, { amp => "&", 59 => ";" }, 0);

print "<p>$str\n";