Select Code to Download

#!/usr/bin/perl 

...
    my ( $r, $g, $b, $a ) = $color->rgba();
    print " shade = $r, $g, $b\n";
}