#!/usr/bin/perl my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time; $year+=1900; $mon++; print "$mday $mon $year, $hour:$min:$sec\n";