($red,$green,$blue,$opaque) = split(/,/,$image->Get("pixel[$x,$y]"));