use Date::Manip; 
$date = "201004061749"; 
($year, $mon, $day, $hour, $min) = UnixDate($date, qw"%Y %m %d %H %M");