if ($server =~ /^((?:[a-zA-Z0-9-]+\.?)+)$/) {
		my @cupscmd=("/usr/bin/lpstat ", "-h", $1, "-r");
		my $cups_cmd=qx/@cupscmd/;
	}else{
		die "suspicious server name: $server\n";
	}