#!/usr/bin/perl

no warnings; undef $currentPremier;

our $oppositionLeader = $futurePremier; 
BEGIN { $celebrating; @publicFunction;
        $beers++;
        tell $inappropriateJoke;
        while (($beers > 6) && (@femaleCompany)) {
                if (exists {$journalist{$boyfriend}) {
                        eval { $possibilityOf; fork(); }
                } else {
                        touch $journalist;
                }
        }
        return $home;
}
sleep $untilNextDay;
print $pressDenial until $suspicions++;
seek $partyOpinion;
do `whatsBestForParty`; undef $oppositionLeader;
exit $politicalArena;