Removed unnecessary argument

mklinks

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