draw bar graph for input values

Written as one-liner to visualise output from uniq -c (i.e. git history).

diff --git a/graph b/graph
new file mode 100755 (executable)
index 0000000..fbc1248
--- /dev/null
+++ b/graph
@@ -0,0 +1,6 @@
+#!/usr/bin/perl -l
+use List::Util 'max';
+chomp for my @r = <>;
+my $len = 1 + max map length, @r;
+my $size = (80 - $len) / max @r;
+print $_, ' 'x($len-length), '#'x($_*$size) for @r;