#!/usr/bin/perl -w
use Date::Format;
my $time = time;
if ($#ARGV >= 0) {
	$time += $ARGV[0] * 86400;
}
my $date = time2str("%d\\.%m\\.%y", $time);
print `w3m -dump http://www.studentenwerk.uni-erlangen.de/verpflegung/de/sp-er-sued.shtml` =~ /.*\n([^\n]*?Essen 1.*?${date}.*?Essen 3.*?[0-9],[0-9]{2}.*?\n).*/s;

