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