my $image = $query->param('image');
$image =~ m/^.*(\\|\/)(.*)/;


while (<$image>)    {


    print STDOUT $_;


}