note giulienk Thank you so much for the simplest, fastest and works like a charm solution ;)<p>Here's the modified line that makes the trick: <code> print header(-type => 'image/jpeg', -Content_length => length $file, -expires => '+30d', ), $file; </code> <P><BR><TT>$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g</TT> 188542 188566