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