#!/usr/bin/perl
use IO::Socket;
$| = 1;
autoflush STDOUT 1;
print "Content-Type: text/html; charset=ISO-8859-1\n\n";
sleep 2;
#!/usr/bin/perl
use IO::Socket;
$| = 1;
autoflush STDOUT 1;
print "Content-Type: text/html; charset=ISO-8859-1\n\n";
sleep 2;