$str = "2006-01-30 10:11:08.507"; 
use Date::Manip; 
$month = UnixDate($str, "%m");