diff --git a/scripts/find-iso-orphans b/scripts/find-iso-orphans
new file mode 100755
index 0000000..13fee2f
--- /dev/null
+++ b/scripts/find-iso-orphans
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use warnings; use strict;
+
+my $depmap="/mnt/crux/setup.dependencies";
+my @orphans; my %DEPENDS;
+
+open (my $dfh, $depmap) or die "Cannot open dependency map $depmap!\n";
+while (<$dfh>) {
+  $DEPENDS{$1} = $2 if m/(.*): (.*)/;
+}
+close ($dfh);
+
+my $iso_deps="";
+foreach my $port (keys %DEPENDS) {
+   $DEPENDS{$port} =~ s/ $port / /;
+   $iso_deps .= " $DEPENDS{$port} " if ($DEPENDS{$port} !~ /^\s*$/);
+}
+@orphans = grep { $iso_deps !~ / $_/ } keys %DEPENDS;
+
+print "Orphans found on the iso:\n";
+foreach (@orphans) { print "$_\n"; }