rlm@9: 
rlm@9: 
rlm@9: $dir='./';
rlm@9: opendir DIR, $dir;
rlm@9: @files=grep !/^\./, readdir(DIR);
rlm@9: $" = "\n";
rlm@9: #print "@files";
rlm@9: $name = "A";
rlm@9: 
rlm@9: for (@files){
rlm@9: 	if ($_=~m/\.spc$/) {
rlm@9:         #print "$_\n";
rlm@9: 		
rlm@9: 		$base = $_;
rlm@9: 		$base =~ s/\.spc//;
rlm@9:         system("spcplay -z $base.spc -w $base.wav\n");
rlm@9: 	
rlm@9: 		}
rlm@9: 		
rlm@9: 		
rlm@9: 		
rlm@9: }