#! /usr/bin/env perl

#  ========================================================================
#  DEVise Data Visualization Software
#  (c) Copyright 2011
#  By the DEVise Development Group
#  Madison, Wisconsin
#  All Rights Reserved.
#  ========================================================================
#
#  Under no circumstances is this software to be copied, distributed,
#  or altered in any way without prior permission from the DEVise
#  Development Group.

#  Script for testing the "external process" capability -- concatenates
#  two arguments.

############################################################

#  $Id: concat.pl,v 1.1 2011/03/24 23:03:46 wenger Exp $

############################################################

my $result = shift(@ARGV);
while ($#ARGV >= 0) {
  $result = $result . ", " . shift(@ARGV);
}
print "$result\n";
