#! /usr/local/bin/perl$base = $ARGV[0];$opt = $ARGV[1];$ind = $ARGV[2];if($ENV{"COG_HOME"}){    $cog  = $ENV{"COG_HOME"};    $make = $cog.'/cog.mk';}else{    $cog = $ENV{"PDELIB_HOME"}.'/modules/cog';    $make = $cog.'/pdelib.mk';}if($base){       	system "coguse $base $opt $ind";}#print "linking cog";if($ENV{"COG_WORK"}){    system "cd ".$ENV{"COG_WORK"}."; make -k -f $make cog";    $cog  = $ENV{"COG_WORK"}."/test";    print "starting test in ".$ENV{"COG_WORK"}."\n";    system "cd ".$ENV{"COG_WORK"}."; ./test"; #$cog;}else{    system "make -k -f $make cog";    print "starting test";    system "./test";}