use DateTime;
 
$dt = DateTime->new(
    year       => 1964,
    month      => 10,
    day        => 16,
);

$dow = $dt->day_of_week;    # 1-7 (Monday is 1)