Off the top of my head, more suited to show you the general means by which I'd tackle the program than the exact syntax:

use strict;
use CGI;

my $q = CGI->new();
{
    local *IMAGE;
    open(IMAGE, $q->param('image')) || die "Can't open: $!";
    binmode(STDOUT);
    print while <IMAGE>;
    close IMAGE;
}
[download]