#!usr/local/bin/perl

#Usage: getslack.p file1 file2

if (fork()==0) {
   print "child1\n";
   system ("scrub.ast.p $ARGV[0]");
   exit;
}
if (fork()==0) {
   print "child2\n";
   system ("scrub.pt.p $ARGV[1]");
   exit;
}
wait;
wait;
print "Done!\n";