#!/usr/bin/perl -w
use strict;
my @parties = (Liberal, Conservative (boo, hiss), NDP, Green); 
my $party = rand[1..4];
print $parties[$party];


##</code><code>##

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;