use autodie ;
open my($outfh),'>:raw', 'stuff';
print $outfh pack 'S<*', @rgb;