@time_arr = split(/-/,$components[1]); $time_arr[1] = $time_arr[1] -1; $unix_time = timelocal(0,0,0,$time_arr[2],$time_arr[1],$time_arr[0]);