1#!/usr/bin/perl 2 3use utf8; 4use strict; 5use Color::Calc::WWW; 6 7binmode STDOUT, ':utf8:crlf'; 8 9my $col1 = '#EEE'; 10my $col2 = '#908'; 11 12my $bkg = $col1; 13my $fg = color_contrast(color_grey($bkg)); 14 15my $bk2 = $col2; 16my $fg2 = color_contrast(color_grey($bk2)); 17 18print <<__EOF; 19Content-Type: text/css; charset=utf-8 20 21body { 22 background: $bkg; 23 color: $fg; 24 } 25 26h1 { 27 background: $bk2; 28 color: $fg2; 29 } 30__EOF 31