[Edinburgh-pm] Meeting Tomorrow

[Murray]

@@ -1,7 +1,9 @@
 use Flu;
 no beer;
+use whisky qw<sup>;
 my $f = Flu->new(severity => 'moderate');
 while ($f->status ne 'OK') {
+    sup('dram');
     sleep(60 * 60);
 }
-use beer;
+require beer if !sup('dram');