print Dumper "$server";
      my $server_num_jobs = qx{/usr/bin/lpstat -h $server -W not-completed|wc -l};
      print Dumper "$server_num_jobs";