#!/usr/bin/perl -T
#
 
use strict;
use warnings;
 
use File::Spec;
 
use CGI qw(:standard);
 
my $upload_path = '/tmp/upload';
 
my $filename = param('image');
 
if ( $filename =~ /([\w.]+\.jpg)$/ )
{
  $filename = File::Spec->catfile($upload_path, $1);
  my $image = do {
                   open IMAGE, $filename or die "Bad image $filename $!\n";
                   binmode IMAGE;
                   select IMAGE;
                   local $/;
                   <IMAGE>;
                 };
  binmode STDOUT;
  print STDOUT header('image/jpeg'),$image;
}
else
{
   print header('text/plain'),"Bad image name - try again";
}