#!/usr/bin/perl
# 
# Author: Peter Keel <killer@discordia.ch>
# Snippet for date/time-manipulation
#
@a=(localtime(time))[5,4,3];
$year=@a[0];
$mon=@a[1]; $mon=$mon+1; $mon = "0$mon" if length($mon) == 1;
$day=@a[2]; $day = "0$day" if length($day) == 1;

print "$year $mon $day \n"