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";