01 #!/usr/bin/perl -w
02 use strict;
03 use WriteTracer;
04 
05 die "usage: $0 program" unless @ARGV;
06 
07 my @files = WriteTracer::run(@ARGV);
08 
09 print "Written files: ",
10       join(", ", @files), "\n";