#! /usr/contrib/bin/perl
use Time::Local;
@tm = localtime;
print "$tm[5] $tm[4] $tm[3]";