#!/usr/bin/perl
# Renumber tunes by adding 1 to the 2-digit page number.

$| = 1;
$exitstat = 0;
($P = $0) =~ s".*/"";
$V = $ENV{"V_$P"} || $ENV{"D_$P"} || 2;	# Verbose level.

for $file (@ARGV) {
	if (($page,$rest) = ($file =~ /^(\d\d)(.*)/)) {
		$page ++;
		$page = "0$page" if length($page) < 2;
		$cmd = "mv $file $page$rest";
		$msg = system "$cmd 2>&1";
	} else {
		print STDERR "$file unchanged.\n" if $V>1;
	}
}