#!/usr/bin/perl -w print "Content-type: text/css\n\n"; sleep(0.5); print "#pass { display: inline }\n"; print "#fail { display: none }\n";