diff --git a/perl-Debug-Trace/Build-notes b/perl-Debug-Trace/Build-notes
new file mode 100644
index 0000000..1cc45d7
--- /dev/null
+++ b/perl-Debug-Trace/Build-notes
@@ -0,0 +1,8 @@
+Build notes
+
+1. download Debug-Trace-0.04.tar.gz 
+   and copy it to /usr/src/<pkgs>/SOURCES (where <pkgs>="redhat" for RH, and <pkgs>="packages" for SLES)
+2. Build a spec file by runing cpan2rpm Debug-Trace-0.04.tar.gz
+3. copy Debug-Trace.spec to /usr/src/redhat/SPECS 
+4. rpmbuild -bb /usr/src/<pkgs>/Debug-Trace.spec
+5. rpm gets created in /usr/src/redhat/RPMS/noarch/perl-Debug-Trace-0-04.noarch.rpm
diff --git a/perl-Debug-Trace/Debug-Trace.spec b/perl-Debug-Trace/Debug-Trace.spec
new file mode 100644
index 0000000..57e3eb6
--- /dev/null
+++ b/perl-Debug-Trace/Debug-Trace.spec
@@ -0,0 +1,139 @@
+#
+#   - Debug::Trace -
+#   This spec file was automatically generated by cpan2rpm [ver: 2.028]
+#   The following arguments were used:
+#       Debug-Trace-0.04.tar.gz --author xCAT --version 1
+#   For more information on cpan2rpm please visit: http://perl.arix.com/
+#
+
+%define pkgname Debug-Trace
+%define filelist %{pkgname}-%{version}-filelist
+%define NVR %{pkgname}-%{version}-%{release}
+%define maketest 1
+
+name:      perl-Debug-Trace
+summary:   Debug-Trace - Perl extension to trace subroutine calls
+version:   0 
+release:   04 
+vendor:    xCAT
+packager:  Arix International <cpan2rpm@arix.com>
+license:   Artistic
+group:     Applications/CPAN
+url:       http://www.cpan.org
+buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
+buildarch: noarch
+prefix:    %(echo %{_prefix})
+source:    Debug-Trace-0.04.tar.gz
+
+%description
+Debug::Trace instruments subroutines to provide tracing information
+upon every call and return.
+
+Using Debug::Trace does not require any changes to your sources. Most
+often, it will be used from the command line:
+
+  perl -MDebug::Trace=foo,bar yourprogram.pl
+
+This will have your subroutines foo() and bar() printing call and
+return information.
+
+Subroutine names may be fully qualified to denote subroutines in other
+packages than the default main::.
+
+By default, the trace information is output using the standard warn()
+function.
+
+#
+# This package was generated automatically with the cpan2rpm
+# utility.  To get this software or for more information
+# please visit: http://perl.arix.com/
+#
+
+%prep
+%setup -q -n %{pkgname}-0.04 
+chmod -R u+w %{_builddir}/%{pkgname}-0.04
+
+%build
+grep -rsl '^#!.*perl' . |
+grep -v '.bak$' |xargs --no-run-if-empty \
+%__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
+CFLAGS="$RPM_OPT_FLAGS"
+%{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '`
+%{__make} 
+%if %maketest
+%{__make} test
+%endif
+
+%install
+[ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
+
+%{makeinstall} `%{__perl} -MExtUtils::MakeMaker -e ' print \$ExtUtils::MakeMaker::VERSION <= 6.05 ? qq|PREFIX=%{buildroot}%{_prefix}| : qq|DESTDIR=%{buildroot}| '`
+
+cmd=/usr/share/spec-helper/compress_files
+[ -x $cmd ] || cmd=/usr/lib/rpm/brp-compress
+[ -x $cmd ] && $cmd
+
+# SuSE Linux
+if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ]
+then
+    %{__mkdir_p} %{buildroot}/var/adm/perl-modules
+    %{__cat} `find %{buildroot} -name "perllocal.pod"`  \
+        | %{__sed} -e s+%{buildroot}++g                 \
+        > %{buildroot}/var/adm/perl-modules/%{name}
+fi
+
+# remove special files
+find %{buildroot} -name "perllocal.pod" \
+    -o -name ".packlist"                \
+    -o -name "*.bs"                     \
+    |xargs -i rm -f {}
+
+# no empty directories
+find %{buildroot}%{_prefix}             \
+    -type d -depth                      \
+    -exec rmdir {} \; 2>/dev/null
+
+%{__perl} -MFile::Find -le '
+    find({ wanted => \&wanted, no_chdir => 1}, "%{buildroot}");
+    print "%doc  Changes README";
+    for my $x (sort @dirs, @files) {
+        push @ret, $x unless indirs($x);
+        }
+    print join "\n", sort @ret;
+
+    sub wanted {
+        return if /auto$/;
+
+        local $_ = $File::Find::name;
+        my $f = $_; s|^\Q%{buildroot}\E||;
+        return unless length;
+        return $files[@files] = $_ if -f $f;
+
+        $d = $_;
+        /\Q$d\E/ && return for reverse sort @INC;
+        $d =~ /\Q$_\E/ && return
+            for qw|/etc %_prefix/man %_prefix/bin %_prefix/share|;
+
+        $dirs[@dirs] = $_;
+        }
+
+    sub indirs {
+        my $x = shift;
+        $x =~ /^\Q$_\E\// && $x ne $_ && return 1 for @dirs;
+        }
+    ' > %filelist
+
+[ -z %filelist ] && {
+    echo "ERROR: empty %files listing"
+    exit -1
+    }
+
+%clean
+[ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
+
+%files -f %filelist
+%defattr(-,root,root)
+
+%changelog
+* Wed Sep 21 2011 root@xcat20mn.clusters.com
+- Initial build.