Сохранение XML через Perl

[swat05]

Подскажите, как сделать сохранение ХМЛ через Перл, кодгда он вызывается методом 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;