tony@mars:.../git/bse$ perl -MImager -le '$c = Imager::Color->new(0, 0, 255); print join ",", $c->rgba'
0,0,255,255