#!/usr/local/bin/perl
#
# $Header: getListOfRPMNames.pl 09-aug-2006.00:13:47 ssdas Exp $
#
# getListOfRPMNames.pl
#
# Copyright (c) 2005, 2006, Oracle. All rights reserved.  
#
#    NAME
#      getListOfRPMNames.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    ssdas     08/04/06 - getting the names of the rpm's without the version
#    ssdas     08/04/06 - Creation
#

system('rpm -qa --qf "%{NAME}\n"') ;
exit ($? >> 8);