Подскажите, как сделать сохранение ХМЛ через Перл, кодгда он вызывается методом sendAndLoad в свф. Вот что я уже написал:

Код:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$get_data = $ENV{'QUERY_STRING'};
$filename = "xml/data.xml";
open(OUTFILE,">>$filename") || exit;
print OUTFILE "$get_data";
close(OUTFILE);
exit;