diff --git a/lspath/lspath b/lspath/lspath
new file mode 100755
index 0000000..d04b3a6
--- /dev/null
+++ b/lspath/lspath
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use strict;
+
+
+for my $p (@ARGV) {
+
+    my @p = split (/\//, $p);
+    for (my $i = 0; $i < scalar(@p); $i++) {
+	my $pp = join("/", @p[0..$i]);
+	$pp = "/" if $pp eq "";
+
+	system("/bin/ls", "-ld", $pp);
+    }
+}