#!c:/perl/bin/perl -w
use strict; # I am getting into the habit of using this!
use URI::Escape; # For escaping special characters

# Keys of this hash correspond to flash variable names:
my %output = (
     'infobox' => '1+1=2 & 2+2=4 yep!'
);

# Send the HTTP header (content-type does not seem to matter)
# I have used text/plain since that sounds the best ;)
print qq|Content-type: text/plain\n\n|;

# Loop through each of the variables in the %output hash
# Function - Encode characters and print them to flash
for (my ($name,$value) = each %output) {
     print qq|$name=| . uri_escape($value) . "&";
}