Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
my @parties = (Liberal, Conservative (boo, hiss), NDP, Green); 
my $party = rand[1..4];
print $parties[$party];
  2. or download this
    our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117,
+ 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;