#!/usr/bin/perl -w
use strict;
use CGI qw(:cgi-lib);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use HTML::Entities;

my ($cg, $filename);

$cg = new CGI;

print $cg->header;
print $cg->start_html("Testing decode_entities");

$filename = $cg->param("fn");   

print "Filename before call to decode_entities: $filename<br>\n";

decode_entities($filename);
print "Filename after call to decode_entities: $filename<br>\n";

print $cg->end_html;