`cd; pwd > tmp; cp tmp figs/Com/dis/tmp`;
            my $con = `cat tmp`;
            if ($con =~ m/^\/(\w+)\/(\w+)$/){
            #    print "$1,$2";
            

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

##</code><code>##

Useless use of a constant in void context at ./test.pl line 47.
Can't use string (">> /$1/$2/figs/Com/dis") as a symbol ref while "strict refs" in use at ./test.pl line 47.