Well then, follow Fastolfe's second suggestion.

use CGI;      # you already have this line
$q = new CGI; # and one like this to I suppose
my $var = "some text from a file";
my $varesc = $q->escapeHTML($var);
[download]

--
$you = new YOU;
honk() if $you->love(perl)