Simple Perl script that helped me to quickly regression test ipset mark & markmask while I developed it.