#!/usr/bin/perl

### simple perl script to calculate how much beer has been drunk
### in the Czech Republic so far this year, for use in signatures.
### for mutt:
###
###     set signature="~/beercounter.pl|"
###
### see also: http://prague.tv/toys/beer/
###

use warnings;
use strict;
use POSIX qw/mktime/;

#use Number::Format qw/:subs/;	# useful if installed

## change these values for different countries
##

my $total_beer_drunk	= 17.8 * (10 ** 6);	# for the czech republic

print	"Litres of beer drunk in the Czech Republic so far this year: ",
	#format_number(beer_drunk($total_beer_drunk), 2, 2), "\n\n",
	beer_drunk($total_beer_drunk), "\n\n",

	" - http://prague.tv/toys/beer/\n";

## pretty simple really
## 

sub beer_drunk {
	my ($litresofbeer)	= @_;
	my $numseconds		= time() - mktime(0, 0, 0, 1, 0, (localtime)[5]);
	my $litrespersecond	= $litresofbeer / (365 * 24 * 3600);

	return sprintf('%.2f', $numseconds * $litrespersecond);
	}