my $file = "/$1/$2/figs/Com/dis/result.xml";
open RESULT, '>>', $file or die "Can't open $file: $!";
select(RESULT);