localtime() 을 사용한 현재 시간 가져오기

현재 시간 가져오기..괜히 Time::Format을 썼나? ㅋㅋ

       my $sec;
       my $min,
       my $hour,
       my $mday,
       my $mon,
       my $year,
       my $wday,
       my $yday,
       my $isdst;

       ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
       my $current = sprintf ("%4d-%02d-%02d %02d:%02d:%02d", $year+1900,$mon+1,$mday,$hour,$
min,$sec);