Select Code to Download

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

#!/usr/bin/perl -w

...

# Write image
$image1->Write('x.png');