note
Punitha
<p>Hi</p>
<p>You can use the time function in perl as</p>
<c>
my ($sec,$min,$hour,$day,$month,$yr19,@rest) = localtime(time);#######To get the localtime of your system
print "Date:\t$day-".++$month. "-".($yr19+1900)."\n"; ####To print date format as expected
print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".sprintf("%02d",$sec)."\n";###To print the current time
</c>
<p>Punitha</p>
659915
659915