Skip to content

Instantly share code, notes, and snippets.

View igal's full-sized avatar

Igal Koshevoy igal

  • Pragmaticraft
  • Portland, Oregon, USA
View GitHub Profile
@igal
igal / 99.pl
Created August 10, 2012 04:17 — forked from notbenh/99.pl
ben goofs off with 99 bottles ... now with moar minimalism.
#!/usr/bin/env perl
use strict;
use warnings;
use feature qw{say};
sub bottles() { sprintf qq{%s bottle%s of beer}
, $_ || 'No'
, $_==1 ? '' : 's';
}
sub store() { $_=99; qq{Go to the store, buy some more...\n}; }