joke.pl

anyone seen this before?

[netcommr]

#!/usr/bin/perl

use warnings;
use strict;

my @questions = qw(Java Python Perl C);
my @punchlines = (
"None. Change it once, and it's the same everywhere.",
"One. He just stands below the socket and the world revolves around him.",
"A million. One to change it, the rest to try and do it in fewer lines.",
'"CHANGE?!"'
);

print "Please enter a number between 1 and 4: ";
my $selection = <STDIN>;
$selection -= 1;
print "How many $questions[$selection] ";
print "programmers does it take to change a lightbulb?\n\n";
sleep 2;
print $punchlines[$selection], "\n";

[Macguru]

I hope I am not too off topic in this forum, but there is a JavaScript version on Gizmo Quiz Scoreboard [vif.com].
(bottom of ugly page)
Enjoy it live! :)

[spud01]

on IIS 5 I get this:

CGI Timeout
The specified CGI application exceeded the allowed time for processing. The server has deleted the process.