#!/usr/bin/env perl

# if($#ARGV != 1) { die "Wrong number of arguments in channel.pl.";}

# $group    = @ARGV[0];
# $channel  = @ARGV[1];


open (KUMLIS, "mychannel_kumacs.list") || die " can't open mychannel_kumacs.list";

open (KUMAC, ">allchain.kumac") || die " can't open pawlogon.kumac";

while ($line = <KUMLIS>)
{
#  $line = <KUMLIS>;
  print KUMAC "exec ../$line";
}