sub expand_path ($$$\$) {
    # inputs: (product,version,is_32bit(T/F), ptr(expanded_path))
    # output: (-,-,-, expanded_path)
    # returns T/F (successful path expansion)
    my ($p, $v, $is32bitbit, $expp) = @_;
    my $is32_text = $is32bitbit ? "32bit-" : "";
    my $rpm = ($v !~ /\.rpm$/) ? "$p-$is32_text$v-*.rpm"
                               : "$p-$is32_text$v*";
    my $exp;
    if (defined ($exp = `2>&1 bash -c "echo $rpm"`)) {
        chomp $exp;
        if ($exp !~ /\*/) {
            $$expp=$exp;
            return 1;
        }
    }
    $$expp = $rpm;
    return 0;
}