-while($count!=$#ARGV+1)
-{
- print "arg($count)$ARGV[$count]\n";
- if($ARGV[$count] eq "--cd"){
- print "cd $ARGV[$count+1]\n";
- chdir ($ARGV[$count+1]);
- $count++;
- }
- elsif($ARGV[$count] eq "--valgrind") {
- print "valgrind_path $ARGV[$count+1]\n";
- $val_path = $ARGV[$count+1];
- $count++;
- }
- else{
- $arg="$arg $ARGV[$count]";
- }
- $count++;