#!/usr/local/bin/perl
#
# Wrapper Program to run tree by.
#
open (IN,"$ARGV[0]") || die "!$";

while (<IN>) {
	$cmd = join(" ",tree,$_);
	print "\n",$cmd,"\n";
	system ($cmd);
}
