#!/usr/bin/perl
# 
# Author: Peter Keel <killer@discordia.ch>
# Snippet for time-manipulation
#
$time=localtime(time);
($dow, $mon, $day, $hour, $min, $sec, $year) = split (/[ ]+|:/, $time);
$min =~ s/^(.)$/0$1/;
printf STDOUT ("%d. %s %d, %d:%d", $day, $mon, $year, $hour, $min);