#!/usr/bin/perl

my @three_virtues;
my $author = "Colin McMillen";

use warnings;
use strict;

my $laziness   = int(rand(2));
my $impatience = int(rand(2));
my $hubris     = int(rand(2));

code_intelligently() or die "not enough laziness";
code_quickly()       or die "not enough impatience";
code_perfectly()     or die "not enough hubris";

sub code_intelligently { return $laziness   }
sub code_quickly       { return $impatience }
sub code_perfectly     { return $hubris     }