diff --git a/print_inventory.pl b/print_inventory.pl
new file mode 100755
index 0000000..4bcb180
--- /dev/null
+++ b/print_inventory.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use mrw::Targets;
+use mrw::Inventory;
+
+my $targetObj;
+my $serverwizFile = $ARGV[0];
+if ((not defined $serverwizFile) || (! -e $serverwizFile)) {
+    die "Usage:  $0 [XML filename]\n";
+}
+
+$targetObj = Targets->new;
+$targetObj->loadXML($serverwizFile);
+
+my @inventory = Inventory::getInventory($targetObj);
+
+for my $item (@inventory) {
+    print "---------------------------------------------------------------\n";
+    print "Target:  $item->{TARGET}\n";
+    print "Name:    $item->{OBMC_NAME}\n";
+}