#!/usr/ug/bin/perl
$|=1;
if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla.*/) {
print "HTTP/1.0 200\nContent-type: multipart/x-mixed-replace;boundary=--boundary--\n\n";
$indice=0;
while ($indice < 30) {
print `cat rotate.push`;
$indice++;
}
} else {
}