#------------------------------------------------------------
sub do_napass {
        local($cmd) = @_;

# do NAPASS actually
	open(NAPASS, "|$napass_cmd >/dev/null") || die("Cannot open: $!\n");
	print NAPASS $cmd;
	close NAPASS;
}