#!/usr/bin/perl -w
#    ListDupNo N...
# List tune files that have duplicate number N in their names.

$HOME = $ENV{HOME} || "/home/jc"; 
$BON  = $ENV{BON}  || "$HOME/w/music/book/ONeills/1850";
print "BON='$BON'\n";

foreach $N (@ARGV) {
	print "N=$N.\n";
	exec "ls -li  _/*$N*$N*  $BON/_/*$N*$N*";
}