#!/usr/bin/perl -w
# doplnok na print picture
#  perl -wcT test.do 
use strict;
use CGI;
# use Carp::Always; # complain loudly

my $query = new CGI;
my $nopic = "test.jpg";
my $CHUNK_SIZE = 4096;
my $MY_FILE_NAME = $query->param('img'); 
my $data = "";

#<img src="img_gen.cgi?size=100">

# open( MY_FILE, "<$MY_FILE_NAME" ) or die( "Can't open $MY_FILE_NAME" );
open( MY_FILE, "<$MY_FILE_NAME" ) or open ( MY_FILE, "<$nopic" );
 print "Content-type: image/jpeg\r\n";
 print "\r\n";
 binmode( MY_FILE ); # These are crucial!
    binmode( STDOUT );

    while ( read( MY_FILE, $data, $CHUNK_SIZE ) )
    {
     print $data;
  }

  close( MY_FILE );

# print qq{<br> <p style="text-align: center;">};