diff --git a/lspath/lspath.pl b/lspath/lspath.pl
index f1cab7d..679b911 100755
--- a/lspath/lspath.pl
+++ b/lspath/lspath.pl
@@ -1,6 +1,15 @@
-#!@@@perl@@@ -w
+#!@@@perl@@@
+use warnings;
 use strict;
 
+use Getopt::Long;
+
+my $suffix = "";
+
+GetOptions(
+    "suffix:s" => \$suffix,
+);
+
 
 my @pp;
 for my $p (@ARGV) {
@@ -9,6 +18,7 @@ for my $p (@ARGV) {
     for (my $i = 0; $i < scalar(@p); $i++) {
 	my $pp = join("/", @p[0..$i]);
 	$pp = "/" if $pp eq "";
+        $pp .= $suffix;
 
 	push (@pp, $pp);
     }