Thank you so much for the simplest, fastest and works like a charm solution ;)

Here's the modified line that makes the trick:

print header(-type           => 'image/jpeg',
             -Content_length => length $file,
             -expires        => '+30d',
             ), $file;
[download]

$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g