archive/2013/perl/mkinput: fix condition error.