in reply to Vote decider

# *nix
perl -le 'print qw(Liberal Conservative NDP Green)[rand 4]'

# win32
perl -le "print qw(Liberal Conservative NDP Green)[rand 4]"

[download]

In Section Cool Uses for Perl