#!/usr/bin/perl print "Content-Type: text/html; charset=Windows-1251\n"; print "Cache-control: private\n"; print "\n"; print << "EOL";