sub handle_image
{
        my $id = shift or die "Internal Error\n";
        my $image = param ('image');
        my $filename = '';
        if ($image)
        {
                $filename = '/images/' . $id . '.jpg';
                open (IMAGE, '> ..' . $filename);
                while (my $bytestoread = read ($image, my $buffer, 1024))
                {
                        print IMAGE $buffer;
                }
                close IMAGE;
        }
        elsif (-e '../images/' . $id . '.jpg')
        {
                $filename = '/images/' . $id . '.jpg';
        }
        return $filename;
}