-<link rel="stylesheet" type="text/css" media="all" href="/base.css"><:
- my %styles = map {$_ => $_} qw(dark mono red);
- our $style = exists $get{style} && $styles{$get{style}} || 'light';
- printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
- $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
- ) for keys %styles;
-:>