+<:
+use utf8;
+use strict;
+use warnings;
+no warnings 'qw'; # you know what you doing
+no warnings 'uninitialized'; # save some useless checks for more legible code
+use open IO => ':utf8';
+
+our $style;
+
+$header{content_type} = 'text/html; charset=utf-8';
+
+sub stylesheet {
+ my %styles = map {$_ => $_} @_;
+ $style = exists $get{style} && $styles{$get{style}} || $_[0];
+ return join "\n", map { sprintf(
+ '<link rel="%s" type="text/css" media="all" href="%s" title="%s">',
+ $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
+ ) } @_;
+}
+