Flash и Perl

[Dwarf]

Содержание CGI:

$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
//Для получения данных из Флеша!..

open(temp, "temp.tmp") //Файл куда сохранять данные..
print temp "var1=$FORM{'var1'}&var2=$FORM{'var2'}"; //код сохранения переменной из Флеша в файл в формате Флеша..
close temp;

код для Флеша:
_root.var1 = "Hallo";
_root.var2 = "Bye Bye"; //Твои переменные, которые надо сохранить...

loadVariables("../cgi-bin/you_cgi.pl", "_root", "POST");

Все!