#!/usr/bin/perl
{
	my ($location) = shift || die "Syntax: shnplay <path to .SHN files>\n";
	chdir ("$location") || die "Directory $location does not exist!\n";

	@SHNlist = `ls -1 *.shn`;

	for($i=0;$i<$#SHNlist+1;$i+=1)
	{
		chomp($SHNlist[$i]);
		system "shorten -x $SHNlist[$i] - | play -t wav -";
	}
}