#!/usr/bin/perl -w
use strict;
use WriteTracer;
 
die "usage: $0 program" unless @ARGV;
 
my @files = WriteTracer::run(@ARGV);
 
print "Written files: ",
      join(", ", @files), "\n";