use Devel::Cover qw(+ignore /path/to/project/,tests/ -silent 1 -summary 0 +select path/to/tool/to/get/cov);

my $cmd = "Galic --path ./path/to/project --run --wait";
system($cmd);
print("Done");
exit(0);