my $harness=start(\@cmd,\'',\&f,\&f)