#!/usr/bin/perl
#
$cmd = "~/bait/solvepht infile=multipht.out outfile=solvepht.out imfile=solvepht.img sigfile=solvepht.sig";
#$cmd = "~/bait/solvepht infile=multipht.trim outfile=solvepht.out imfile=solvepht.img sigfile=solvepht.sig varstar=154 varstar=166 varstar=104 badim=706 badim=631 badim=7";
printf "%s\n", $cmd;
$retval = `$cmd`;
printf "retval is ..%s..\n", $retval;

exit 0;
