How to get system date and time using Perl

($s,$m,$h,$DD,$DM,$DY,$wday,$yday,$isdst) = localtime(); $date = sprintf "%%02d-%%02d-%%04d", $DD,$DM+1,1900+$DY; $time = sprintf "%%02d:%%02d:%%02d", $h ,$m ,$s;