my $plsname = $curdir;
$plsname =~ s/^\Q$startdir\E//i;
$plsname =~ s/\//_/g;
$plsname =~ s/^_?//;
$plsname .= '.pls';