Лафове за програмисти :)

#!/usr/bin/perl

#joke1.plx

use warnings;

use strict;

my @questions = qw (Java Python Perl C);

my @punchlines = (

„None. Change it once, and it is the same everywhere.„,

„One. He just stands below the socket and the world revolves around it.„,

„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] programmers does it taketo change a lightbulb?\n\n„;

sleep 2;

print $punchlines[$selection], „\n„;