print system(qq($doscommand > "$logfile"));

##</code><code>##

#replace . w/ . if 5.6++
open(LOG, '>>'. $logfile);
print LOG qx($doscommand);