Outputs the amounts of euros I've saved since I quite smoking

money_not_gone_up_in_smoke.pl

#!/usr/bin/perl

use DateTime;
use Mojo::UserAgent;

my $price =
    Mojo::UserAgent->new
    ->get( 'http://www.ah.nl/appie/producten?rq=Gauloises+Blondes+Blue' )
    ->res->dom->find("p.price")->first->all_text;
   $price =~ s/[^0-9\.]//g;
   $price /= 10;

printf("%.2f", DateTime->from_epoch(epoch => 1348272000)
   ->delta_days(DateTime->now)->in_units('days') * $price);

__END__
This script calculates the amount of days I've not smoked and how
much that translates to in money, based on 1 Gauloises Blondes Blue
a day.

Yes, we look at the current price, which isn't entirely fair, for
when it changes, the entire duration will use the new price. But oh
well...