my $name = $ent -> get();
my $log = qx(perl /xx/bgt/structure.pl $path_dir $name);