Select Code to Download

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