#!/usr/bin/perl -w use strict; use CGI; my $cgi = new CGI; my $method = $ENV{"REQUEST_METHOD"}; my $user = $ENV{"REMOTE_USER"}; my $epoc = time(); print "Content-type: text/html\r\n"; print "Cache-Control: no-cache\r\n"; print "\r\n"; print "\n"; print "\n"; sleep 1; print "mod_qos demo application B\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; sleep 1; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print " To be, or not to be: that is the question:\n"; print " Whether 'tis nobler in the mind to suffer\n"; print " The slings and arrows of outrageous fortune,\n"; print " Or to take arms against a sea of troubles,\n"; print " And by opposing end them? To die: to sleep;\n"; print " No more; and by a sleep to say we end\n"; print " The heart-ache and the thousand natural shocks\n"; print " That flesh is heir to, 'tis a consummation\n"; print " Devoutly to be wish'd. To die, to sleep;\n"; print " To sleep: perchance to dream: ay, there's the rub;\n"; print " For in that sleep of death what dreams may come\n"; print " When we have shuffled off this mortal coil,\n"; print " Must give us pause: there's the respect\n"; print " That makes calamity of so long life;\n"; print " For who would bear the whips and scorns of time,\n"; print " The oppressor's wrong, the proud man's contumely,\n"; print " The pangs of despised love, the law's delay,\n"; print " The insolence of office and the spurns\n"; print " That patient merit of the unworthy takes,\n"; print " When he himself might his quietus make\n"; print " With a bare bodkin? who would fardels bear,\n"; print " To grunt and sweat under a weary life,\n"; print " But that the dread of something after death,\n"; print " The undiscover'd country from whose bourn\n"; print " No traveller returns, puzzles the will\n"; print " And makes us rather bear those ills we have\n"; print " Than fly to others that we know not of?\n"; print " Thus conscience does make cowards of us all;\n"; print " And thus the native hue of resolution\n"; print " Is sicklied o'er with the pale cast of thought,\n"; print " And enterprises of great pith and moment\n"; print " With this regard their currents turn awry,\n"; print " And lose the name of action.--Soft you now!\n"; print " The fair Ophelia! Nymph, in thy orisons\n"; print " Be all my sins remember'd.\n"; print "\n"; print "
William Shakespeare\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; sleep 1; print "

up

\n"; print "
\n"; print "\n"; print "mod_qos\n"; print "\n"; print "\n"; print "\n";