#!/usr/bin/perl

$files = `ls test?` ;
@fi = split "\n", $files ;
while ( $f = shift  @fi ) {
   `java QuickSortTest < $f > $f.out` ;
}