#!/usr/bin/perl
print "Content-type: text/css\n\n";
$t=time/86400%4;
if($t==0){
 $a='stl.css';
}elsif($t==1){
 $a='2ch.css';
}elsif($t==2){
 $a='ycn.css';
}else{
 $a='stl2.css';
}
open (a);
print foreach (<a>);