open(DBG, ">/tmp/dbg") || die " '/tmp/dbg' ($!)";# begin loop ... my $cmd = "$iwhome/bin/iwgen -t $tpl -r $dcr $page"; print DBG "[", scalar(localtime()), "]: CMD: '$cmd'\n"; my $ret = `$cmd`; print DBG "[", scalar(localtime()), "]: RET: '$ret'\n";# end loopclose(DBG);