# Output an image to the browser
sub show_img {
 my $img = shift;
 my ($mime) = $img =~ /\.(gif|jpe?g|png)$/;
 $mime = 'jpeg' if $mime eq 'jpg';
 open my $fh, '<', $img or die "Could not open $img for read: $!";
 binmode $fh;
 my $img_data = do { local $/; <$fh> };
 close $fh;
 print header('image/' . $mime), $img_data;
 exit;
}

##</code><code>##

print redirect("/some/webpath/to/selected/image.jpg");