my $cmd = "ldd $path";
my ($stdout, $stderr, $exit_status) = capture { system($cmd); };
next if (exit_status);
foreach my $line (split(/\n/, $stdout)) {
    if ($line =~ /(.*)\s*=>\s*(.*)/) {
        my $lib_path = $2;
        if ($lib_path =~ /(.*)\s+(.*)/) {
            $lib_path = $1;
            $paths{$lib_path}++;
            print("Found $lib_path of $path\n");
        } else {
            print("Invalid line: $line of $path\n");
        }
    } else {
        print("Invalid line: $line of $path\n");
    }
}