my($name,$version,$release,$arch) = split(' ',`rpm -qp --queryformat '%{NAME} %{VERSION} %{RELEASE} %{ARCH}\n' $filename`);