# perl ean-13.pl > out.png