#! /usr/bin/perl -w
#
# Trace <input value> 
#  
# lists subdomains and components that are invoked on system
#  input <input value>.  Requires the presence of SystemCode created
#  from the -T option of SYNF through SmeasF.
# Makes a "trace_path" file using the tracef.pm module

die "Requires input value as argument" unless defined($ARGV[0]);
$X = $ARGV[0];
die "Requires -T version of SystemCode" unless -x "SystemCode";
unlink "trace_path";
unlink "tmp_hash";
system "echo $X | SystemCode";
print "dump of trace_path:\n";
system "cat trace_path";

