#!/usr/bin/perl -dw
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  listnametunekey -
#
#SYNOPSIS
#  listnametunekey [file]..
#
#REQUIRES
#
#DESCRIPTION
#
#OPTIONS
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

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

$ARGV = '.' unless $ARGV;

for $name (@ARGV) {
	$name =~ s/^\.\/+//;
	if (($base,$key) = ($name =~ /^(.*)_([A-Ga-g]m*)\.abc-/)) {
		system "ls -li $base*";
	}
}

print "$P: Exit with status $exitstat.\n" if $V>3;
exit $exitstat;

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #