Help for this page
open (FH, "<data.txt"); while (<FH>) { ... binmode IMG; print IMG $image->png; close IMG;