#!/usr/bin/perl -w
use strict;
use warnings;

use Image::Magick;
use CGI::Carp qw(fatalsToBrowser); 
use CGI::Pretty;
use CGI qw(:standard :cgi-lib -debug fatalsToBrowser warningsToBrowser);

my $cgi = new CGI;

print $cgi->header;
print start_html;
my $slide_name = "../".param('slide_name');
print "$slide_name",br;
print img({-src=>"$slide_name"}),br;
`/usr/bin/mogrify -flip $slide_name`;
print img({-src=>"$slide_name"}),br;
#print redirect(referer());

print end_html;