perl function for converting current time into mysql datetime

perl function for converting current time into mysql datetime

sub getMySqlDateTime {
my @arr_time = localtime();
my $time_year = $arr_time[5] + 1900;
my$time_month= $arr_time[4] + 1;
$time_month = ($time_month < 10)?'0'.$time_month:$time_month;
my $time_date = ($arr_time[3] < 10)?'0'.$arr_time[3]:$arr_time[3];
my $time_hr = ($arr_time[2] < 10)?'0'.$arr_time[2]:$arr_time[2];
my $time_mn = ($arr_time[1] < 10)?'0'.$arr_time[1]:$arr_time[1];
my $time_sc = ($arr_time[0] < 10)?'0'.$arr_time[0]:$arr_time[0];

my $time_str = $time_year.'-'.$time_month.'-'.$time_date.' '.$time_hr.':'.$time_mn.':'.$time_sc;
return $time_str;
}