$verbose = 1;
    ...
  {
    my $cmd_str;
    $cmd_str = "perl c:\\perl\\test.pl";
    print "$cmd_str\n" if($verbose);
    system $cmd_str;
  }