#!/usr/bin/perl

      use File::Copy;

      open TREEFILE, $args[0];

      TREE: while (<TREEFILE>) {

                next TREE if /^#/;
                next TREE if /^ *$/;

                @srcfiles = split(/:/);
                chomp @srcfiles;