#!/usr/bin/perl

@foo = localtime(time);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = @foo;
printf "%02d/%02d/%04d %02d:%02d:%02d\n",
	$mon + 1, $mday, $year + 1900,
	$hour, $min, $sec;