+ my $s = shift;
+ my ($name, $path, $suffix) = fileparse($0, qr/\.[^.]*/);
+ $name = "$name$suffix: ";
+
+ if ($s) {
+ say "\n${name}$s\n";
+ $name = "\t";
+ }
+ say "${name}version $VERSION usage: [-b] [-x] <filename.msc[xz]> ...\n";
+ say "\tA program to halve the note values of a MuseScore 2.x file.\n";
+ say "\tThis designed to be used to convert 'early music' note values";
+ say "\tinto something more 'modern'. It will also sort out things like";
+ say "\tinter-syllablic hyphenation if it comes across trailing hyphens";
+ say "\tsuch as come from imported Finale musicxml files.";
+ say "\n\tfilenames: 'a.mscz' (or 'a.mscx') will be written to 'a-halved.mscx'.";
+ say "\tYou can do several files at a time!\n";
+ say "\n\tArguments:";
+ say "\t-b - normally any beaming is converted to auto, use this to retain beaming info";
+ say "\t-x - enable debugging (actually more a stream of conscienceness)";
+ say;
+