Removed unnecessary argument

mklinks

@@ -49,7 +49,6 @@ $dotroot or usage;
 
 sub mklinks {
     my $dotroot = shift;
-    my $prefix = shift;
     -d $dotroot or die "not a directory: $dotroot";
     my @dirs = `ls $dotroot`;
     foreach my $dir (@dirs) {
@@ -65,5 +64,5 @@ sub mklinks {
     }
 }
 
-mklinks($dotroot, $prefix);
+mklinks($dotroot);