sub DoBeforeAfter
{
   my (@FILE) = @_;
   my $retval = "";
   for my $i (0 .. $#FILE) {
      $retval .= $CONFIG{'before'}.$FILE[$i];
      $retval .= $CONFIG{'after'} if $i != $#FILE;
   }
   chomp( $retval );
   return $retval;
}