#!/usr/local/bin/perl -w

use CGI qw/:all/;
my $query = CGI::new();
my $file = $query->param("image");

open ( IMAGE, $file );
while ( <IMAGE> ) {
        print $_;
        }
        
exit ;