diff --git a/lspath/lspath b/lspath/lspath
deleted file mode 100755
index d04b3a6..0000000
--- a/lspath/lspath
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/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);
-    }
-}