diff --git a/xCAT-genesis-builder/findmcprpms b/xCAT-genesis-builder/findmcprpms
new file mode 100755
index 000000000..837a93568
--- /dev/null
+++ b/xCAT-genesis-builder/findmcprpms
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+# Figure out which rpms are used in the mcp-based version of genesis by looking at the files
+# we pull in and working backward to the rpms.
+use strict;
+
+my $genesisrpm = shift @ARGV;
+my %rpms;
+my @files = `rpm -qlp $genesisrpm`;
+my $total = scalar(@files);
+my $i = 0;
+foreach my $f (@files) {
+	$i++;
+	print "$i/$total\r";
+	chomp($f);
+	if ($f !~ m|/opt/xcat/share/xcat/netboot/genesis/x86_64/fs|) { next; }
+	$f =~ s|^/opt/xcat/share/xcat/netboot/genesis/x86_64/fs||;
+	if (!$f || !(-e $f)) { next; }       # there are files dracut creates that are not part of an rpm
+	my $rpm = `rpm -q --whatprovides $f`;
+	if ($?) { next; }	# there are files dracut creates that are not part of an rpm
+	#print '.';	# show progress
+	chomp($rpm);
+	$rpms{$rpm} = 1;
+}
+print "\n";
+foreach my $r (sort keys %rpms) { print "$r\n"; }
+exit;